BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / Mac F2C 1.2.1.sit / Mac F2C 1.2.1 / Test Project ƒ / test.c (C Output) < prev next >
MacBinary | 1995-03-22 | 19.1 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 22 15:51:54 1995, modified Wed Mar 22 15:51:54 1995, creator Think C, type ASCII, 18886 bytes "test.c (C Output)" , at 0x4a46 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 74 65 73 74 2e 63 | 20 28 43 20 4f 75 74 70 |..test.c| (C Outp|
|00000010| 75 74 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ut).....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 49 c6 00 | 00 01 9a ab 96 3e 6a ab |.....I..|.....>j.|
|00000060| 96 3e 6a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.>j.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 22 60 00 00 |........|...."`..|
|00000080| 2f 2a 20 74 65 73 74 2e | 66 20 2d 2d 20 74 72 61 |/* test.|f -- tra|
|00000090| 6e 73 6c 61 74 65 64 20 | 62 79 20 66 32 63 20 28 |nslated |by f2c (|
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 39 34 31 31 31 33 |version |19941113|
|000000b0| 29 2e 0d 20 20 20 59 6f | 75 20 6d 75 73 74 20 6c |)..   Yo|u must l|
|000000c0| 69 6e 6b 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |ink the |resultin|
|000000d0| 67 20 6f 62 6a 65 63 74 | 20 66 69 6c 65 20 77 69 |g object| file wi|
|000000e0| 74 68 20 74 68 65 20 6c | 69 62 72 61 72 69 65 73 |th the l|ibraries|
|000000f0| 3a 0d 09 2d 6c 66 32 63 | 20 2d 6c 6d 20 20 20 28 |:..-lf2c| -lm   (|
|00000100| 69 6e 20 74 68 61 74 20 | 6f 72 64 65 72 29 0d 2a |in that |order).*|
|00000110| 2f 0d 0d 23 69 6e 63 6c | 75 64 65 20 22 66 32 63 |/..#incl|ude "f2c|
|00000120| 2e 68 22 0d 0d 2f 2a 20 | 54 61 62 6c 65 20 6f 66 |.h"../* |Table of|
|00000130| 20 63 6f 6e 73 74 61 6e | 74 20 76 61 6c 75 65 73 | constan|t values|
|00000140| 20 2a 2f 0d 0d 73 74 61 | 74 69 63 20 69 6e 74 65 | */..sta|tic inte|
|00000150| 67 65 72 20 63 5f 5f 39 | 20 3d 20 39 3b 0d 73 74 |ger c__9| = 9;.st|
|00000160| 61 74 69 63 20 69 6e 74 | 65 67 65 72 20 63 5f 5f |atic int|eger c__|
|00000170| 31 20 3d 20 31 3b 0d 73 | 74 61 74 69 63 20 69 6e |1 = 1;.s|tatic in|
|00000180| 74 65 67 65 72 20 63 5f | 5f 31 30 20 3d 20 31 30 |teger c_|_10 = 10|
|00000190| 3b 0d 73 74 61 74 69 63 | 20 69 6e 74 65 67 65 72 |;.static| integer|
|000001a0| 20 63 5f 5f 33 20 3d 20 | 33 3b 0d 73 74 61 74 69 | c__3 = |3;.stati|
|000001b0| 63 20 69 6e 74 65 67 65 | 72 20 63 5f 5f 34 20 3d |c intege|r c__4 =|
|000001c0| 20 34 3b 0d 73 74 61 74 | 69 63 20 69 6e 74 65 67 | 4;.stat|ic integ|
|000001d0| 65 72 20 63 5f 5f 35 20 | 3d 20 35 3b 0d 73 74 61 |er c__5 |= 5;.sta|
|000001e0| 74 69 63 20 64 6f 75 62 | 6c 65 72 65 61 6c 20 63 |tic doub|lereal c|
|000001f0| 5f 62 31 36 38 20 3d 20 | 2e 33 33 33 33 33 33 33 |_b168 = |.3333333|
|00000200| 33 33 33 33 33 33 33 33 | 33 31 3b 0d 0d 2f 2a 20 |33333333|31;../* |
|00000210| 4d 61 69 6e 20 70 72 6f | 67 72 61 6d 20 2a 2f 20 |Main pro|gram */ |
|00000220| 4d 41 49 4e 5f 5f 28 76 | 6f 69 64 29 0d 7b 0d 20 |MAIN__(v|oid).{. |
|00000230| 20 20 20 2f 2a 20 46 6f | 72 6d 61 74 20 73 74 72 |   /* Fo|rmat str|
|00000240| 69 6e 67 73 20 2a 2f 0d | 20 20 20 20 73 74 61 74 |ings */.|    stat|
|00000250| 69 63 20 63 68 61 72 20 | 66 6d 74 5f 39 39 5b 5d |ic char |fmt_99[]|
|00000260| 20 3d 20 22 28 61 31 29 | 22 3b 0d 0d 20 20 20 20 | = "(a1)|";..    |
|00000270| 2f 2a 20 42 75 69 6c 74 | 69 6e 20 66 75 6e 63 74 |/* Built|in funct|
|00000280| 69 6f 6e 73 20 2a 2f 0d | 20 20 20 20 69 6e 74 65 |ions */.|    inte|
|00000290| 67 65 72 20 73 5f 77 73 | 6c 65 28 63 69 6c 69 73 |ger s_ws|le(cilis|
|000002a0| 74 20 2a 29 2c 20 64 6f | 5f 6c 69 6f 28 69 6e 74 |t *), do|_lio(int|
|000002b0| 65 67 65 72 20 2a 2c 20 | 69 6e 74 65 67 65 72 20 |eger *, |integer |
|000002c0| 2a 2c 20 63 68 61 72 20 | 2a 2c 20 66 74 6e 6c 65 |*, char |*, ftnle|
|000002d0| 6e 29 2c 20 0d 09 20 20 | 20 20 65 5f 77 73 6c 65 |n), ..  |  e_wsle|
|000002e0| 28 76 6f 69 64 29 2c 20 | 73 5f 72 73 66 65 28 63 |(void), |s_rsfe(c|
|000002f0| 69 6c 69 73 74 20 2a 29 | 2c 20 64 6f 5f 66 69 6f |ilist *)|, do_fio|
|00000300| 28 69 6e 74 65 67 65 72 | 20 2a 2c 20 63 68 61 72 |(integer| *, char|
|00000310| 20 2a 2c 20 66 74 6e 6c | 65 6e 29 2c 0d 09 20 20 | *, ftnl|en),..  |
|00000320| 20 20 20 65 5f 72 73 66 | 65 28 76 6f 69 64 29 3b |   e_rsf|e(void);|
|00000330| 0d 20 20 20 20 2f 2a 20 | 53 75 62 72 6f 75 74 69 |.    /* |Subrouti|
|00000340| 6e 65 20 2a 2f 20 69 6e | 74 20 73 5f 73 74 6f 70 |ne */ in|t s_stop|
|00000350| 28 63 68 61 72 20 2a 2c | 20 66 74 6e 6c 65 6e 29 |(char *,| ftnlen)|
|00000360| 3b 0d 0d 20 20 20 20 2f | 2a 20 4c 6f 63 61 6c 20 |;..    /|* Local |
|00000370| 76 61 72 69 61 62 6c 65 | 73 20 2a 2f 0d 20 20 20 |variable|s */.   |
|00000380| 20 63 68 61 72 20 6a 75 | 6e 6b 5b 32 5d 3b 0d 20 | char ju|nk[2];. |
|00000390| 20 20 20 65 78 74 65 72 | 6e 20 2f 2a 20 53 75 62 |   exter|n /* Sub|
|000003a0| 72 6f 75 74 69 6e 65 20 | 2a 2f 20 69 6e 74 20 61 |routine |*/ int a|
|000003b0| 6c 67 5f 74 65 73 74 5f | 5f 28 69 6e 74 65 67 65 |lg_test_|_(intege|
|000003c0| 72 20 2a 29 2c 20 69 5f | 6f 5f 74 65 73 74 5f 5f |r *), i_|o_test__|
|000003d0| 28 76 6f 69 64 29 2c 20 | 0d 09 20 20 20 20 66 6c |(void), |..    fl|
|000003e0| 74 5f 74 65 73 74 5f 5f | 28 69 6e 74 65 67 65 72 |t_test__|(integer|
|000003f0| 20 2a 29 2c 20 69 6e 74 | 5f 74 65 73 74 5f 5f 28 | *), int|_test__(|
|00000400| 69 6e 74 65 67 65 72 20 | 2a 29 2c 20 74 72 6e 5f |integer |*), trn_|
|00000410| 74 65 73 74 5f 5f 28 76 | 6f 69 64 29 3b 0d 0d 20 |test__(v|oid);.. |
|00000420| 20 20 20 2f 2a 20 46 6f | 72 74 72 61 6e 20 49 2f |   /* Fo|rtran I/|
|00000430| 4f 20 62 6c 6f 63 6b 73 | 20 2a 2f 0d 20 20 20 20 |O blocks| */.    |
|00000440| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00000450| 5f 5f 5f 31 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |___1 = {| 0, 6, 0|
|00000460| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|00000470| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|00000480| 5f 32 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |_2 = { 0|, 6, 0, |
|00000490| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|000004a0| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 33 |ic cilis|t io___3|
|000004b0| 20 3d 20 7b 20 30 2c 20 | 35 2c 20 30 2c 20 66 6d | = { 0, |5, 0, fm|
|000004c0| 74 5f 39 39 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |t_99, 0 |};.    s|
|000004d0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000004e0| 5f 5f 35 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |__5 = { |0, 6, 0,|
|000004f0| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|00000500| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|00000510| 36 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 30 |6 = { 0,| 6, 0, 0|
|00000520| 2c 20 30 20 7d 3b 0d 20 | 20 20 20 73 74 61 74 69 |, 0 };. |   stati|
|00000530| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 37 20 |c cilist| io___7 |
|00000540| 3d 20 7b 20 30 2c 20 35 | 2c 20 30 2c 20 66 6d 74 |= { 0, 5|, 0, fmt|
|00000550| 5f 39 39 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |_99, 0 }|;.    st|
|00000560| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|00000570| 5f 38 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |_8 = { 0|, 6, 0, |
|00000580| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|00000590| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 39 |ic cilis|t io___9|
|000005a0| 20 3d 20 7b 20 30 2c 20 | 36 2c 20 30 2c 20 30 2c | = { 0, |6, 0, 0,|
|000005b0| 20 30 20 7d 3b 0d 20 20 | 20 20 73 74 61 74 69 63 | 0 };.  |  static|
|000005c0| 20 63 69 6c 69 73 74 20 | 69 6f 5f 5f 5f 31 30 20 | cilist |io___10 |
|000005d0| 3d 20 7b 20 30 2c 20 35 | 2c 20 30 2c 20 66 6d 74 |= { 0, 5|, 0, fmt|
|000005e0| 5f 39 39 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |_99, 0 }|;.    st|
|000005f0| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|00000600| 5f 31 31 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |_11 = { |0, 6, 0,|
|00000610| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|00000620| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|00000630| 31 32 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |12 = { 0|, 6, 0, |
|00000640| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|00000650| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 31 |ic cilis|t io___1|
|00000660| 33 20 3d 20 7b 20 30 2c | 20 35 2c 20 30 2c 20 66 |3 = { 0,| 5, 0, f|
|00000670| 6d 74 5f 39 39 2c 20 30 | 20 7d 3b 0d 20 20 20 20 |mt_99, 0| };.    |
|00000680| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00000690| 5f 5f 5f 31 34 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___14 = |{ 0, 6, |
|000006a0| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000006b0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000006c0| 5f 5f 31 35 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__15 = {| 0, 6, 0|
|000006d0| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|000006e0| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|000006f0| 5f 31 36 20 3d 20 7b 20 | 30 2c 20 35 2c 20 30 2c |_16 = { |0, 5, 0,|
|00000700| 20 66 6d 74 5f 39 39 2c | 20 30 20 7d 3b 0d 20 20 | fmt_99,| 0 };.  |
|00000710| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|00000720| 69 6f 5f 5f 5f 31 37 20 | 3d 20 7b 20 30 2c 20 36 |io___17 |= { 0, 6|
|00000730| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|00000740| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00000750| 6f 5f 5f 5f 31 38 20 3d | 20 7b 20 30 2c 20 36 2c |o___18 =| { 0, 6,|
|00000760| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|00000770| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00000780| 5f 5f 5f 31 39 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___19 = |{ 0, 6, |
|00000790| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000007a0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000007b0| 5f 5f 32 30 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__20 = {| 0, 6, 0|
|000007c0| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|000007d0| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|000007e0| 5f 32 31 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |_21 = { |0, 6, 0,|
|000007f0| 20 30 2c 20 30 20 7d 3b | 0d 0d 0d 2f 2a 20 09 54 | 0, 0 };|.../* .T|
|00000800| 68 69 73 20 69 73 20 61 | 20 46 4f 52 54 52 41 4e |his is a| FORTRAN|
|00000810| 20 70 72 6f 67 72 61 6d | 20 74 6f 20 74 65 73 74 | program| to test|
|00000820| 20 4d 61 63 20 46 32 43 | 20 76 31 2e 31 20 2a 2f | Mac F2C| v1.1 */|
|00000830| 0d 20 20 20 20 73 5f 77 | 73 6c 65 28 26 69 6f 5f |.    s_w|sle(&io_|
|00000840| 5f 5f 31 29 3b 0d 20 20 | 20 20 64 6f 5f 6c 69 6f |__1);.  |  do_lio|
|00000850| 28 26 63 5f 5f 39 2c 20 | 26 63 5f 5f 31 2c 20 22 |(&c__9, |&c__1, "|
|00000860| 2a 2a 2a 2a 2a 20 20 20 | 49 6e 70 75 74 2f 4f 75 |*****   |Input/Ou|
|00000870| 74 70 75 74 20 54 65 73 | 74 20 20 20 2a 2a 2a 2a |tput Tes|t   ****|
|00000880| 2a 22 2c 20 33 33 4c 29 | 3b 0d 20 20 20 20 65 5f |*", 33L)|;.    e_|
|00000890| 77 73 6c 65 28 29 3b 0d | 20 20 20 20 69 5f 6f 5f |wsle();.|    i_o_|
|000008a0| 74 65 73 74 5f 5f 28 29 | 3b 0d 20 20 20 20 73 5f |test__()|;.    s_|
|000008b0| 77 73 6c 65 28 26 69 6f | 5f 5f 5f 32 29 3b 0d 20 |wsle(&io|___2);. |
|000008c0| 20 20 20 64 6f 5f 6c 69 | 6f 28 26 63 5f 5f 39 2c |   do_li|o(&c__9,|
|000008d0| 20 26 63 5f 5f 31 2c 20 | 22 5c 6e 2a 2a 2a 2a 2a | &c__1, |"\n*****|
|000008e0| 20 20 20 45 6e 64 20 6f | 66 20 49 2f 4f 20 74 65 |   End o|f I/O te|
|000008f0| 73 74 2c 20 68 69 74 20 | 72 65 74 75 72 6e 20 74 |st, hit |return t|
|00000900| 6f 20 63 6f 6e 74 69 6e | 75 65 2e 22 0d 09 20 20 |o contin|ue."..  |
|00000910| 20 20 22 2e 2e 22 2c 20 | 35 31 4c 29 3b 0d 20 20 |  "..", |51L);.  |
|00000920| 20 20 65 5f 77 73 6c 65 | 28 29 3b 0d 20 20 20 20 |  e_wsle|();.    |
|00000930| 73 5f 72 73 66 65 28 26 | 69 6f 5f 5f 5f 33 29 3b |s_rsfe(&|io___3);|
|00000940| 0d 20 20 20 20 64 6f 5f | 66 69 6f 28 26 63 5f 5f |.    do_|fio(&c__|
|00000950| 31 2c 20 6a 75 6e 6b 2c | 20 32 4c 29 3b 0d 20 20 |1, junk,| 2L);.  |
|00000960| 20 20 65 5f 72 73 66 65 | 28 29 3b 0d 20 20 20 20 |  e_rsfe|();.    |
|00000970| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 35 29 3b |s_wsle(&|io___5);|
|00000980| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00000990| 39 2c 20 26 63 5f 5f 31 | 2c 20 22 5c 6e 2a 2a 2a |9, &c__1|, "\n***|
|000009a0| 2a 2a 20 20 20 49 6e 74 | 65 67 65 72 20 4d 61 74 |**   Int|eger Mat|
|000009b0| 68 20 54 65 73 74 20 20 | 20 2a 2a 2a 2a 2a 22 2c |h Test  | *****",|
|000009c0| 20 33 34 4c 29 3b 0d 20 | 20 20 20 65 5f 77 73 6c | 34L);. |   e_wsl|
|000009d0| 65 28 29 3b 0d 20 20 20 | 20 69 6e 74 5f 74 65 73 |e();.   | int_tes|
|000009e0| 74 5f 5f 28 26 63 5f 5f | 31 30 29 3b 0d 20 20 20 |t__(&c__|10);.   |
|000009f0| 20 73 5f 77 73 6c 65 28 | 26 69 6f 5f 5f 5f 36 29 | s_wsle(|&io___6)|
|00000a00| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00000a10| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 5c 6e 2a 2a |_9, &c__|1, "\n**|
|00000a20| 2a 2a 2a 20 20 20 45 6e | 64 20 6f 66 20 69 6e 74 |***   En|d of int|
|00000a30| 65 67 65 72 20 6d 61 74 | 68 20 74 65 73 74 2c 20 |eger mat|h test, |
|00000a40| 68 69 74 20 72 65 74 75 | 72 6e 20 74 6f 20 22 0d |hit retu|rn to ".|
|00000a50| 09 20 20 20 20 22 63 6f | 6e 74 69 6e 75 65 2e 2e |.    "co|ntinue..|
|00000a60| 2e 22 2c 20 36 30 4c 29 | 3b 0d 20 20 20 20 65 5f |.", 60L)|;.    e_|
|00000a70| 77 73 6c 65 28 29 3b 0d | 20 20 20 20 73 5f 72 73 |wsle();.|    s_rs|
|00000a80| 66 65 28 26 69 6f 5f 5f | 5f 37 29 3b 0d 20 20 20 |fe(&io__|_7);.   |
|00000a90| 20 64 6f 5f 66 69 6f 28 | 26 63 5f 5f 31 2c 20 6a | do_fio(|&c__1, j|
|00000aa0| 75 6e 6b 2c 20 32 4c 29 | 3b 0d 20 20 20 20 65 5f |unk, 2L)|;.    e_|
|00000ab0| 72 73 66 65 28 29 3b 0d | 20 20 20 20 73 5f 77 73 |rsfe();.|    s_ws|
|00000ac0| 6c 65 28 26 69 6f 5f 5f | 5f 38 29 3b 0d 20 20 20 |le(&io__|_8);.   |
|00000ad0| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 39 2c 20 26 | do_lio(|&c__9, &|
|00000ae0| 63 5f 5f 31 2c 20 22 5c | 6e 2a 2a 2a 2a 2a 20 20 |c__1, "\|n*****  |
|00000af0| 20 46 6c 6f 61 74 69 6e | 67 20 50 6f 69 6e 74 20 | Floatin|g Point |
|00000b00| 4d 61 74 68 20 54 65 73 | 74 20 20 20 2a 2a 2a 2a |Math Tes|t   ****|
|00000b10| 2a 22 2c 20 34 31 4c 29 | 3b 0d 20 20 20 20 65 5f |*", 41L)|;.    e_|
|00000b20| 77 73 6c 65 28 29 3b 0d | 20 20 20 20 66 6c 74 5f |wsle();.|    flt_|
|00000b30| 74 65 73 74 5f 5f 28 26 | 63 5f 5f 31 30 29 3b 0d |test__(&|c__10);.|
|00000b40| 20 20 20 20 73 5f 77 73 | 6c 65 28 26 69 6f 5f 5f |    s_ws|le(&io__|
|00000b50| 5f 39 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |_9);.   | do_lio(|
|00000b60| 26 63 5f 5f 39 2c 20 26 | 63 5f 5f 31 2c 20 22 5c |&c__9, &|c__1, "\|
|00000b70| 6e 2a 2a 2a 2a 2a 20 20 | 20 45 6e 64 20 6f 66 20 |n*****  | End of |
|00000b80| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 6d |floating| point m|
|00000b90| 61 74 68 20 74 65 73 74 | 2c 20 68 69 74 20 72 65 |ath test|, hit re|
|00000ba0| 74 22 0d 09 20 20 20 20 | 22 75 72 6e 20 74 6f 20 |t"..    |"urn to |
|00000bb0| 63 6f 6e 74 69 6e 75 65 | 2e 2e 2e 22 2c 20 36 37 |continue|...", 67|
|00000bc0| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00000bd0| 3b 0d 20 20 20 20 73 5f | 72 73 66 65 28 26 69 6f |;.    s_|rsfe(&io|
|00000be0| 5f 5f 5f 31 30 29 3b 0d | 20 20 20 20 64 6f 5f 66 |___10);.|    do_f|
|00000bf0| 69 6f 28 26 63 5f 5f 31 | 2c 20 6a 75 6e 6b 2c 20 |io(&c__1|, junk, |
|00000c00| 32 4c 29 3b 0d 20 20 20 | 20 65 5f 72 73 66 65 28 |2L);.   | e_rsfe(|
|00000c10| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|00000c20| 6f 5f 5f 5f 31 31 29 3b | 0d 20 20 20 20 64 6f 5f |o___11);|.    do_|
|00000c30| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00000c40| 2c 20 22 5c 6e 2a 2a 2a | 2a 2a 20 20 20 41 6c 67 |, "\n***|**   Alg|
|00000c50| 65 62 72 61 69 63 20 46 | 75 6e 63 74 69 6f 6e 20 |ebraic F|unction |
|00000c60| 54 65 73 74 20 20 20 2a | 2a 2a 2a 2a 22 2c 20 34 |Test   *|****", 4|
|00000c70| 30 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |0L);.   | e_wsle(|
|00000c80| 29 3b 0d 20 20 20 20 61 | 6c 67 5f 74 65 73 74 5f |);.    a|lg_test_|
|00000c90| 5f 28 26 63 5f 5f 31 30 | 29 3b 0d 20 20 20 20 73 |_(&c__10|);.    s|
|00000ca0| 5f 77 73 6c 65 28 26 69 | 6f 5f 5f 5f 31 32 29 3b |_wsle(&i|o___12);|
|00000cb0| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00000cc0| 39 2c 20 26 63 5f 5f 31 | 2c 20 22 5c 6e 2a 2a 2a |9, &c__1|, "\n***|
|00000cd0| 2a 2a 20 20 20 45 6e 64 | 20 6f 66 20 61 6c 67 65 |**   End| of alge|
|00000ce0| 62 72 61 69 63 20 66 75 | 6e 63 74 69 6f 6e 20 74 |braic fu|nction t|
|00000cf0| 65 73 74 2c 20 68 69 74 | 20 72 65 74 75 22 0d 09 |est, hit| retu"..|
|00000d00| 20 20 20 20 22 72 6e 20 | 74 6f 20 63 6f 6e 74 69 |    "rn |to conti|
|00000d10| 6e 75 65 2e 2e 2e 22 2c | 20 36 36 4c 29 3b 0d 20 |nue...",| 66L);. |
|00000d20| 20 20 20 65 5f 77 73 6c | 65 28 29 3b 0d 20 20 20 |   e_wsl|e();.   |
|00000d30| 20 73 5f 72 73 66 65 28 | 26 69 6f 5f 5f 5f 31 33 | s_rsfe(|&io___13|
|00000d40| 29 3b 0d 20 20 20 20 64 | 6f 5f 66 69 6f 28 26 63 |);.    d|o_fio(&c|
|00000d50| 5f 5f 31 2c 20 6a 75 6e | 6b 2c 20 32 4c 29 3b 0d |__1, jun|k, 2L);.|
|00000d60| 20 20 20 20 65 5f 72 73 | 66 65 28 29 3b 0d 20 20 |    e_rs|fe();.  |
|00000d70| 20 20 73 5f 77 73 6c 65 | 28 26 69 6f 5f 5f 5f 31 |  s_wsle|(&io___1|
|00000d80| 34 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |4);.    |do_lio(&|
|00000d90| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 5c 6e |c__9, &c|__1, "\n|
|00000da0| 2a 2a 2a 2a 2a 20 20 20 | 54 72 61 6e 73 63 65 6e |*****   |Transcen|
|00000db0| 64 65 6e 74 61 6c 20 46 | 75 6e 63 74 69 6f 6e 20 |dental F|unction |
|00000dc0| 54 65 73 74 20 20 20 2a | 2a 2a 2a 2a 22 2c 20 0d |Test   *|****", .|
|00000dd0| 09 20 20 20 20 34 35 4c | 29 3b 0d 20 20 20 20 65 |.    45L|);.    e|
|00000de0| 5f 77 73 6c 65 28 29 3b | 0d 20 20 20 20 74 72 6e |_wsle();|.    trn|
|00000df0| 5f 74 65 73 74 5f 5f 28 | 29 3b 0d 20 20 20 20 73 |_test__(|);.    s|
|00000e00| 5f 77 73 6c 65 28 26 69 | 6f 5f 5f 5f 31 35 29 3b |_wsle(&i|o___15);|
|00000e10| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00000e20| 39 2c 20 26 63 5f 5f 31 | 2c 20 22 5c 6e 2a 2a 2a |9, &c__1|, "\n***|
|00000e30| 2a 2a 20 20 20 45 6e 64 | 20 6f 66 20 74 72 61 6e |**   End| of tran|
|00000e40| 73 63 65 6e 64 65 6e 74 | 61 6c 20 66 75 6e 63 74 |scendent|al funct|
|00000e50| 69 6f 6e 20 74 65 73 74 | 2c 20 68 69 74 22 0d 09 |ion test|, hit"..|
|00000e60| 20 20 20 20 22 20 72 65 | 74 75 72 6e 20 74 6f 20 |    " re|turn to |
|00000e70| 63 6f 6e 74 69 6e 75 65 | 2e 2e 2e 22 2c 20 37 31 |continue|...", 71|
|00000e80| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00000e90| 3b 0d 20 20 20 20 73 5f | 72 73 66 65 28 26 69 6f |;.    s_|rsfe(&io|
|00000ea0| 5f 5f 5f 31 36 29 3b 0d | 20 20 20 20 64 6f 5f 66 |___16);.|    do_f|
|00000eb0| 69 6f 28 26 63 5f 5f 31 | 2c 20 6a 75 6e 6b 2c 20 |io(&c__1|, junk, |
|00000ec0| 32 4c 29 3b 0d 20 20 20 | 20 65 5f 72 73 66 65 28 |2L);.   | e_rsfe(|
|00000ed0| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|00000ee0| 6f 5f 5f 5f 31 37 29 3b | 0d 20 20 20 20 64 6f 5f |o___17);|.    do_|
|00000ef0| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00000f00| 2c 20 22 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |, "#####|########|
|00000f10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f30| 23 23 23 23 23 22 0d 09 | 20 20 20 20 22 23 23 23 |#####"..|    "###|
|00000f40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f50| 23 23 23 23 23 22 2c 20 | 37 34 4c 29 3b 0d 20 20 |#####", |74L);.  |
|00000f60| 20 20 65 5f 77 73 6c 65 | 28 29 3b 0d 20 20 20 20 |  e_wsle|();.    |
|00000f70| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 31 38 29 |s_wsle(&|io___18)|
|00000f80| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00000f90| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 20 49 66 20 |_9, &c__|1, " If |
|00000fa0| 79 6f 75 20 6e 6f 74 69 | 63 65 64 20 74 68 61 74 |you noti|ced that|
|00000fb0| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|00000fc0| 76 61 6c 75 65 73 20 64 | 69 64 20 6e 6f 74 22 0d |values d|id not".|
|00000fd0| 09 20 20 20 20 22 20 72 | 6f 75 6e 64 20 63 6f 72 |.    " r|ound cor|
|00000fe0| 72 65 63 74 6c 79 20 77 | 68 65 6e 22 2c 20 37 31 |rectly w|hen", 71|
|00000ff0| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00001000| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00001010| 5f 5f 5f 31 39 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___19);.|    do_l|
|00001020| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00001030| 20 22 20 64 69 73 70 6c | 61 79 65 64 2c 20 70 6c | " displ|ayed, pl|
|00001040| 65 61 73 65 20 72 65 61 | 64 20 74 68 65 20 65 6e |ease rea|d the en|
|00001050| 63 6c 6f 73 65 64 20 66 | 69 6c 65 20 5c 22 49 66 |closed f|ile \"If|
|00001060| 20 46 6c 6f 22 0d 09 20 | 20 20 20 22 61 74 73 20 | Flo".. |   "ats |
|00001070| 44 6f 6e 27 74 20 44 69 | 73 70 6c 61 79 20 52 69 |Don't Di|splay Ri|
|00001080| 67 68 74 5c 22 22 2c 20 | 37 33 4c 29 3b 0d 20 20 |ght\"", |73L);.  |
|00001090| 20 20 65 5f 77 73 6c 65 | 28 29 3b 0d 20 20 20 20 |  e_wsle|();.    |
|000010a0| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 32 30 29 |s_wsle(&|io___20)|
|000010b0| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|000010c0| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 23 23 23 23 |_9, &c__|1, "####|
|000010d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000010e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000010f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 22 0d |########|######".|
|00001100| 09 20 20 20 20 22 23 23 | 23 23 23 23 23 23 23 23 |.    "##|########|
|00001110| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 22 2c |########|######",|
|00001120| 20 37 34 4c 29 3b 0d 20 | 20 20 20 65 5f 77 73 6c | 74L);. |   e_wsl|
|00001130| 65 28 29 3b 0d 20 20 20 | 20 73 5f 77 73 6c 65 28 |e();.   | s_wsle(|
|00001140| 26 69 6f 5f 5f 5f 32 31 | 29 3b 0d 20 20 20 20 64 |&io___21|);.    d|
|00001150| 6f 5f 6c 69 6f 28 26 63 | 5f 5f 39 2c 20 26 63 5f |o_lio(&c|__9, &c_|
|00001160| 5f 31 2c 20 22 5c 6e 2a | 2a 2a 2a 2a 20 20 20 54 |_1, "\n*|****   T|
|00001170| 68 69 73 20 63 6f 6d 70 | 6c 65 74 65 73 20 61 6c |his comp|letes al|
|00001180| 6c 20 6f 66 20 74 68 65 | 20 74 65 73 74 73 20 20 |l of the| tests  |
|00001190| 20 2a 2a 2a 2a 2a 22 2c | 20 0d 09 20 20 20 20 34 | *****",| ..    4|
|000011a0| 38 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |8L);.   | e_wsle(|
|000011b0| 29 3b 0d 20 20 20 20 73 | 5f 73 74 6f 70 28 22 22 |);.    s|_stop(""|
|000011c0| 2c 20 30 4c 29 3b 0d 20 | 20 20 20 72 65 74 75 72 |, 0L);. |   retur|
|000011d0| 6e 20 30 3b 0d 7d 20 2f | 2a 20 4d 41 49 4e 5f 5f |n 0;.} /|* MAIN__|
|000011e0| 20 2a 2f 0d 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | */../**|********|
|000011f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001230| 2f 0d 0d 2f 2a 20 09 53 | 75 62 72 6f 75 74 69 6e |/../* .S|ubroutin|
|00001240| 65 20 74 6f 20 64 6f 20 | 74 68 65 20 49 2f 4f 20 |e to do |the I/O |
|00001250| 74 65 73 74 73 20 2a 2f | 0d 0d 2f 2a 2a 2a 2a 2a |tests */|../*****|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012a0| 2a 2a 2a 2a 2a 2f 0d 2f | 2a 20 53 75 62 72 6f 75 |*****/./|* Subrou|
|000012b0| 74 69 6e 65 20 2a 2f 20 | 69 6e 74 20 69 5f 6f 5f |tine */ |int i_o_|
|000012c0| 74 65 73 74 5f 5f 28 76 | 6f 69 64 29 0d 7b 0d 20 |test__(v|oid).{. |
|000012d0| 20 20 20 2f 2a 20 46 6f | 72 6d 61 74 20 73 74 72 |   /* Fo|rmat str|
|000012e0| 69 6e 67 73 20 2a 2f 0d | 20 20 20 20 73 74 61 74 |ings */.|    stat|
|000012f0| 69 63 20 63 68 61 72 20 | 66 6d 74 5f 33 39 39 5b |ic char |fmt_399[|
|00001300| 5d 20 3d 20 22 28 61 31 | 29 22 3b 0d 20 20 20 20 |] = "(a1|)";.    |
|00001310| 73 74 61 74 69 63 20 63 | 68 61 72 20 66 6d 74 5f |static c|har fmt_|
|00001320| 33 30 34 5b 5d 20 3d 20 | 22 28 35 78 2c 61 32 30 |304[] = |"(5x,a20|
|00001330| 2c 35 28 69 31 2c 32 78 | 29 2c 35 78 2c 35 28 66 |,5(i1,2x|),5x,5(f|
|00001340| 34 2e 32 2c 32 78 29 29 | 22 3b 0d 0d 20 20 20 20 |4.2,2x))|";..    |
|00001350| 2f 2a 20 53 79 73 74 65 | 6d 20 67 65 6e 65 72 61 |/* Syste|m genera|
|00001360| 74 65 64 20 6c 6f 63 61 | 6c 73 20 2a 2f 0d 20 20 |ted loca|ls */.  |
|00001370| 20 20 6f 6c 69 73 74 20 | 6f 5f 5f 31 3b 0d 20 20 |  olist |o__1;.  |
|00001380| 20 20 63 6c 6c 69 73 74 | 20 63 6c 5f 5f 31 3b 0d |  cllist| cl__1;.|
|00001390| 0d 20 20 20 20 2f 2a 20 | 42 75 69 6c 74 69 6e 20 |.    /* |Builtin |
|000013a0| 66 75 6e 63 74 69 6f 6e | 73 20 2a 2f 0d 20 20 20 |function|s */.   |
|000013b0| 20 69 6e 74 65 67 65 72 | 20 73 5f 77 73 6c 65 28 | integer| s_wsle(|
|000013c0| 63 69 6c 69 73 74 20 2a | 29 2c 20 64 6f 5f 6c 69 |cilist *|), do_li|
|000013d0| 6f 28 69 6e 74 65 67 65 | 72 20 2a 2c 20 69 6e 74 |o(intege|r *, int|
|000013e0| 65 67 65 72 20 2a 2c 20 | 63 68 61 72 20 2a 2c 20 |eger *, |char *, |
|000013f0| 66 74 6e 6c 65 6e 29 2c | 20 0d 09 20 20 20 20 65 |ftnlen),| ..    e|
|00001400| 5f 77 73 6c 65 28 76 6f | 69 64 29 2c 20 73 5f 72 |_wsle(vo|id), s_r|
|00001410| 73 6c 65 28 63 69 6c 69 | 73 74 20 2a 29 2c 20 65 |sle(cili|st *), e|
|00001420| 5f 72 73 6c 65 28 76 6f | 69 64 29 2c 20 73 5f 72 |_rsle(vo|id), s_r|
|00001430| 73 66 65 28 63 69 6c 69 | 73 74 20 2a 29 2c 20 0d |sfe(cili|st *), .|
|00001440| 09 20 20 20 20 64 6f 5f | 66 69 6f 28 69 6e 74 65 |.    do_|fio(inte|
|00001450| 67 65 72 20 2a 2c 20 63 | 68 61 72 20 2a 2c 20 66 |ger *, c|har *, f|
|00001460| 74 6e 6c 65 6e 29 2c 20 | 65 5f 72 73 66 65 28 76 |tnlen), |e_rsfe(v|
|00001470| 6f 69 64 29 3b 0d 20 20 | 20 20 76 6f 69 64 20 73 |oid);.  |  void s|
|00001480| 5f 63 6f 70 79 28 63 68 | 61 72 20 2a 2c 20 63 68 |_copy(ch|ar *, ch|
|00001490| 61 72 20 2a 2c 20 66 74 | 6e 6c 65 6e 2c 20 66 74 |ar *, ft|nlen, ft|
|000014a0| 6e 6c 65 6e 29 3b 0d 20 | 20 20 20 69 6e 74 65 67 |nlen);. |   integ|
|000014b0| 65 72 20 66 5f 6f 70 65 | 6e 28 6f 6c 69 73 74 20 |er f_ope|n(olist |
|000014c0| 2a 29 2c 20 73 5f 77 73 | 75 65 28 63 69 6c 69 73 |*), s_ws|ue(cilis|
|000014d0| 74 20 2a 29 2c 20 64 6f | 5f 75 69 6f 28 69 6e 74 |t *), do|_uio(int|
|000014e0| 65 67 65 72 20 2a 2c 20 | 63 68 61 72 20 2a 2c 20 |eger *, |char *, |
|000014f0| 0d 09 20 20 20 20 66 74 | 6e 6c 65 6e 29 2c 20 65 |..    ft|nlen), e|
|00001500| 5f 77 73 75 65 28 76 6f | 69 64 29 2c 20 66 5f 63 |_wsue(vo|id), f_c|
|00001510| 6c 6f 73 28 63 6c 6c 69 | 73 74 20 2a 29 2c 20 73 |los(clli|st *), s|
|00001520| 5f 77 73 66 65 28 63 69 | 6c 69 73 74 20 2a 29 2c |_wsfe(ci|list *),|
|00001530| 20 65 5f 77 73 66 65 28 | 0d 09 20 20 20 20 76 6f | e_wsfe(|..    vo|
|00001540| 69 64 29 2c 20 73 5f 72 | 73 75 65 28 63 69 6c 69 |id), s_r|sue(cili|
|00001550| 73 74 20 2a 29 2c 20 65 | 5f 72 73 75 65 28 76 6f |st *), e|_rsue(vo|
|00001560| 69 64 29 3b 0d 0d 20 20 | 20 20 2f 2a 20 4c 6f 63 |id);..  |  /* Loc|
|00001570| 61 6c 20 76 61 72 69 61 | 62 6c 65 73 20 2a 2f 0d |al varia|bles */.|
|00001580| 20 20 20 20 63 68 61 72 | 20 74 65 78 74 5b 34 30 |    char| text[40|
|00001590| 5d 3b 0d 20 20 20 20 72 | 65 61 6c 20 61 5b 35 5d |];.    r|eal a[5]|
|000015a0| 3b 0d 20 20 20 20 69 6e | 74 65 67 65 72 20 69 2c |;.    in|teger i,|
|000015b0| 20 6a 5b 35 5d 3b 0d 20 | 20 20 20 72 65 61 6c 20 | j[5];. |   real |
|000015c0| 78 3b 0d 20 20 20 20 64 | 6f 75 62 6c 65 72 65 61 |x;.    d|oublerea|
|000015d0| 6c 20 64 78 3b 0d 0d 20 | 20 20 20 2f 2a 20 46 6f |l dx;.. |   /* Fo|
|000015e0| 72 74 72 61 6e 20 49 2f | 4f 20 62 6c 6f 63 6b 73 |rtran I/|O blocks|
|000015f0| 20 2a 2f 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | */.    |static c|
|00001600| 69 6c 69 73 74 20 69 6f | 5f 5f 5f 32 32 20 3d 20 |ilist io|___22 = |
|00001610| 7b 20 30 2c 20 36 2c 20 | 30 2c 20 30 2c 20 30 20 |{ 0, 6, |0, 0, 0 |
|00001620| 7d 3b 0d 20 20 20 20 73 | 74 61 74 69 63 20 63 69 |};.    s|tatic ci|
|00001630| 6c 69 73 74 20 69 6f 5f | 5f 5f 32 33 20 3d 20 7b |list io_|__23 = {|
|00001640| 20 30 2c 20 35 2c 20 30 | 2c 20 30 2c 20 30 20 7d | 0, 5, 0|, 0, 0 }|
|00001650| 3b 0d 20 20 20 20 73 74 | 61 74 69 63 20 63 69 6c |;.    st|atic cil|
|00001660| 69 73 74 20 69 6f 5f 5f | 5f 32 35 20 3d 20 7b 20 |ist io__|_25 = { |
|00001670| 30 2c 20 36 2c 20 30 2c | 20 30 2c 20 30 20 7d 3b |0, 6, 0,| 0, 0 };|
|00001680| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00001690| 73 74 20 69 6f 5f 5f 5f | 32 36 20 3d 20 7b 20 30 |st io___|26 = { 0|
|000016a0| 2c 20 36 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 6, 0, |0, 0 };.|
|000016b0| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|000016c0| 74 20 69 6f 5f 5f 5f 32 | 37 20 3d 20 7b 20 30 2c |t io___2|7 = { 0,|
|000016d0| 20 35 2c 20 30 2c 20 30 | 2c 20 30 20 7d 3b 0d 20 | 5, 0, 0|, 0 };. |
|000016e0| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|000016f0| 20 69 6f 5f 5f 5f 32 39 | 20 3d 20 7b 20 30 2c 20 | io___29| = { 0, |
|00001700| 36 2c 20 30 2c 20 30 2c | 20 30 20 7d 3b 0d 20 20 |6, 0, 0,| 0 };.  |
|00001710| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|00001720| 69 6f 5f 5f 5f 33 30 20 | 3d 20 7b 20 30 2c 20 36 |io___30 |= { 0, 6|
|00001730| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|00001740| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00001750| 6f 5f 5f 5f 33 31 20 3d | 20 7b 20 30 2c 20 35 2c |o___31 =| { 0, 5,|
|00001760| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|00001770| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00001780| 5f 5f 5f 33 33 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___33 = |{ 0, 6, |
|00001790| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000017a0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000017b0| 5f 5f 33 34 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__34 = {| 0, 6, 0|
|000017c0| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|000017d0| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|000017e0| 5f 33 35 20 3d 20 7b 20 | 30 2c 20 35 2c 20 30 2c |_35 = { |0, 5, 0,|
|000017f0| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|00001800| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|00001810| 33 37 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |37 = { 0|, 6, 0, |
|00001820| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|00001830| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 33 |ic cilis|t io___3|
|00001840| 38 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 30 |8 = { 0,| 6, 0, 0|
|00001850| 2c 20 30 20 7d 3b 0d 20 | 20 20 20 73 74 61 74 69 |, 0 };. |   stati|
|00001860| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 33 39 |c cilist| io___39|
|00001870| 20 3d 20 7b 20 30 2c 20 | 35 2c 20 30 2c 20 66 6d | = { 0, |5, 0, fm|
|00001880| 74 5f 33 39 39 2c 20 30 | 20 7d 3b 0d 20 20 20 20 |t_399, 0| };.    |
|00001890| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|000018a0| 5f 5f 5f 34 32 20 3d 20 | 7b 20 30 2c 20 36 30 2c |___42 = |{ 0, 60,|
|000018b0| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|000018c0| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|000018d0| 5f 5f 5f 34 33 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___43 = |{ 0, 6, |
|000018e0| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000018f0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|00001900| 5f 5f 34 34 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__44 = {| 0, 6, 0|
|00001910| 2c 20 66 6d 74 5f 33 30 | 34 2c 20 30 20 7d 3b 0d |, fmt_30|4, 0 };.|
|00001920| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00001930| 74 20 69 6f 5f 5f 5f 34 | 35 20 3d 20 7b 20 30 2c |t io___4|5 = { 0,|
|00001940| 20 35 30 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d | 50, 0, |0, 0 };.|
|00001950| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00001960| 74 20 69 6f 5f 5f 5f 34 | 36 20 3d 20 7b 20 30 2c |t io___4|6 = { 0,|
|00001970| 20 36 2c 20 30 2c 20 30 | 2c 20 30 20 7d 3b 0d 20 | 6, 0, 0|, 0 };. |
|00001980| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|00001990| 20 69 6f 5f 5f 5f 34 37 | 20 3d 20 7b 20 30 2c 20 | io___47| = { 0, |
|000019a0| 36 2c 20 30 2c 20 66 6d | 74 5f 33 30 34 2c 20 30 |6, 0, fm|t_304, 0|
|000019b0| 20 7d 3b 0d 0d 0d 2f 2a | 20 09 53 63 72 65 65 6e | };.../*| .Screen|
|000019c0| 20 49 2f 4f 20 74 65 73 | 74 73 20 2a 2f 0d 20 20 | I/O tes|ts */.  |
|000019d0| 20 20 73 5f 77 73 6c 65 | 28 26 69 6f 5f 5f 5f 32 |  s_wsle|(&io___2|
|000019e0| 32 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |2);.    |do_lio(&|
|000019f0| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 5c 6e |c__9, &c|__1, "\n|
|00001a00| 50 61 72 74 20 31 3a 20 | 20 53 63 72 65 65 6e 20 |Part 1: | Screen |
|00001a10| 49 2f 4f 20 74 65 73 74 | 73 2e 5c 6e 5c 6e 45 6e |I/O test|s.\n\nEn|
|00001a20| 74 65 72 20 61 6e 20 69 | 6e 74 65 67 65 72 20 76 |ter an i|nteger v|
|00001a30| 22 0d 09 20 20 20 20 22 | 61 6c 75 65 2e 22 2c 20 |"..    "|alue.", |
|00001a40| 35 32 4c 29 3b 0d 20 20 | 20 20 65 5f 77 73 6c 65 |52L);.  |  e_wsle|
|00001a50| 28 29 3b 0d 20 20 20 20 | 73 5f 72 73 6c 65 28 26 |();.    |s_rsle(&|
|00001a60| 69 6f 5f 5f 5f 32 33 29 | 3b 0d 20 20 20 20 64 6f |io___23)|;.    do|
|00001a70| 5f 6c 69 6f 28 26 63 5f | 5f 33 2c 20 26 63 5f 5f |_lio(&c_|_3, &c__|
|00001a80| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 69 2c 20 28 |1, (char| *)&i, (|
|00001a90| 66 74 6e 6c 65 6e 29 73 | 69 7a 65 6f 66 28 69 6e |ftnlen)s|izeof(in|
|00001aa0| 74 65 67 65 72 29 29 3b | 0d 20 20 20 20 65 5f 72 |teger));|.    e_r|
|00001ab0| 73 6c 65 28 29 3b 0d 20 | 20 20 20 73 5f 77 73 6c |sle();. |   s_wsl|
|00001ac0| 65 28 26 69 6f 5f 5f 5f | 32 35 29 3b 0d 20 20 20 |e(&io___|25);.   |
|00001ad0| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 39 2c 20 26 | do_lio(|&c__9, &|
|00001ae0| 63 5f 5f 31 2c 20 22 54 | 68 65 20 6e 75 6d 62 65 |c__1, "T|he numbe|
|00001af0| 72 20 79 6f 75 20 65 6e | 74 65 72 65 64 20 77 61 |r you en|tered wa|
|00001b00| 73 3a 22 2c 20 32 37 4c | 29 3b 0d 20 20 20 20 64 |s:", 27L|);.    d|
|00001b10| 6f 5f 6c 69 6f 28 26 63 | 5f 5f 33 2c 20 26 63 5f |o_lio(&c|__3, &c_|
|00001b20| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 69 2c 20 |_1, (cha|r *)&i, |
|00001b30| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 69 |(ftnlen)|sizeof(i|
|00001b40| 6e 74 65 67 65 72 29 29 | 3b 0d 20 20 20 20 65 5f |nteger))|;.    e_|
|00001b50| 77 73 6c 65 28 29 3b 0d | 20 20 20 20 73 5f 77 73 |wsle();.|    s_ws|
|00001b60| 6c 65 28 26 69 6f 5f 5f | 5f 32 36 29 3b 0d 20 20 |le(&io__|_26);.  |
|00001b70| 20 20 64 6f 5f 6c 69 6f | 28 26 63 5f 5f 39 2c 20 |  do_lio|(&c__9, |
|00001b80| 26 63 5f 5f 31 2c 20 22 | 5c 6e 45 6e 74 65 72 20 |&c__1, "|\nEnter |
|00001b90| 61 20 73 69 6e 67 6c 65 | 20 70 72 65 63 69 73 69 |a single| precisi|
|00001ba0| 6f 6e 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |on float|ing poin|
|00001bb0| 74 20 76 61 6c 75 65 2e | 2e 2e 22 2c 0d 09 20 20 |t value.|..",..  |
|00001bc0| 20 20 20 34 39 4c 29 3b | 0d 20 20 20 20 65 5f 77 |   49L);|.    e_w|
|00001bd0| 73 6c 65 28 29 3b 0d 20 | 20 20 20 73 5f 72 73 6c |sle();. |   s_rsl|
|00001be0| 65 28 26 69 6f 5f 5f 5f | 32 37 29 3b 0d 20 20 20 |e(&io___|27);.   |
|00001bf0| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 34 2c 20 26 | do_lio(|&c__4, &|
|00001c00| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 78 |c__1, (c|har *)&x|
|00001c10| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00001c20| 28 72 65 61 6c 29 29 3b | 0d 20 20 20 20 65 5f 72 |(real));|.    e_r|
|00001c30| 73 6c 65 28 29 3b 0d 20 | 20 20 20 73 5f 77 73 6c |sle();. |   s_wsl|
|00001c40| 65 28 26 69 6f 5f 5f 5f | 32 39 29 3b 0d 20 20 20 |e(&io___|29);.   |
|00001c50| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 39 2c 20 26 | do_lio(|&c__9, &|
|00001c60| 63 5f 5f 31 2c 20 22 54 | 68 65 20 6e 75 6d 62 65 |c__1, "T|he numbe|
|00001c70| 72 20 79 6f 75 20 65 6e | 74 65 72 65 64 20 77 61 |r you en|tered wa|
|00001c80| 73 3a 20 22 2c 20 32 38 | 4c 29 3b 0d 20 20 20 20 |s: ", 28|L);.    |
|00001c90| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 34 2c 20 26 63 |do_lio(&|c__4, &c|
|00001ca0| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 78 2c |__1, (ch|ar *)&x,|
|00001cb0| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00001cc0| 72 65 61 6c 29 29 3b 0d | 20 20 20 20 65 5f 77 73 |real));.|    e_ws|
|00001cd0| 6c 65 28 29 3b 0d 20 20 | 20 20 73 5f 77 73 6c 65 |le();.  |  s_wsle|
|00001ce0| 28 26 69 6f 5f 5f 5f 33 | 30 29 3b 0d 20 20 20 20 |(&io___3|0);.    |
|00001cf0| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 39 2c 20 26 63 |do_lio(&|c__9, &c|
|00001d00| 5f 5f 31 2c 20 22 5c 6e | 45 6e 74 65 72 20 61 20 |__1, "\n|Enter a |
|00001d10| 64 6f 75 62 6c 65 20 70 | 72 65 63 69 73 69 6f 6e |double p|recision|
|00001d20| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|00001d30| 76 61 6c 75 65 2e 2e 2e | 22 2c 0d 09 20 20 20 20 |value...|",..    |
|00001d40| 20 34 39 4c 29 3b 0d 20 | 20 20 20 65 5f 77 73 6c | 49L);. |   e_wsl|
|00001d50| 65 28 29 3b 0d 20 20 20 | 20 73 5f 72 73 6c 65 28 |e();.   | s_rsle(|
|00001d60| 26 69 6f 5f 5f 5f 33 31 | 29 3b 0d 20 20 20 20 64 |&io___31|);.    d|
|00001d70| 6f 5f 6c 69 6f 28 26 63 | 5f 5f 35 2c 20 26 63 5f |o_lio(&c|__5, &c_|
|00001d80| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 64 78 2c |_1, (cha|r *)&dx,|
|00001d90| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00001da0| 64 6f 75 62 6c 65 72 65 | 61 6c 29 29 3b 0d 20 20 |doublere|al));.  |
|00001db0| 20 20 65 5f 72 73 6c 65 | 28 29 3b 0d 20 20 20 20 |  e_rsle|();.    |
|00001dc0| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 33 33 29 |s_wsle(&|io___33)|
|00001dd0| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00001de0| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 54 68 65 20 |_9, &c__|1, "The |
|00001df0| 6e 75 6d 62 65 72 20 79 | 6f 75 20 65 6e 74 65 72 |number y|ou enter|
|00001e00| 65 64 20 77 61 73 3a 20 | 22 2c 20 32 38 4c 29 3b |ed was: |", 28L);|
|00001e10| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00001e20| 35 2c 20 26 63 5f 5f 31 | 2c 20 28 63 68 61 72 20 |5, &c__1|, (char |
|00001e30| 2a 29 26 64 78 2c 20 28 | 66 74 6e 6c 65 6e 29 73 |*)&dx, (|ftnlen)s|
|00001e40| 69 7a 65 6f 66 28 64 6f | 75 62 6c 65 72 65 61 6c |izeof(do|ublereal|
|00001e50| 29 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |));.    |e_wsle()|
|00001e60| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00001e70| 5f 5f 5f 33 34 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___34);.|    do_l|
|00001e80| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00001e90| 20 22 5c 6e 45 6e 74 65 | 72 20 73 6f 6d 65 20 74 | "\nEnte|r some t|
|00001ea0| 65 78 74 20 28 34 30 20 | 63 68 61 72 20 6d 61 78 |ext (40 |char max|
|00001eb0| 29 2e 2e 2e 22 2c 20 33 | 33 4c 29 3b 0d 20 20 20 |)...", 3|3L);.   |
|00001ec0| 20 65 5f 77 73 6c 65 28 | 29 3b 0d 20 20 20 20 73 | e_wsle(|);.    s|
|00001ed0| 5f 72 73 6c 65 28 26 69 | 6f 5f 5f 5f 33 35 29 3b |_rsle(&i|o___35);|
|00001ee0| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00001ef0| 39 2c 20 26 63 5f 5f 31 | 2c 20 74 65 78 74 2c 20 |9, &c__1|, text, |
|00001f00| 34 30 4c 29 3b 0d 20 20 | 20 20 65 5f 72 73 6c 65 |40L);.  |  e_rsle|
|00001f10| 28 29 3b 0d 20 20 20 20 | 73 5f 77 73 6c 65 28 26 |();.    |s_wsle(&|
|00001f20| 69 6f 5f 5f 5f 33 37 29 | 3b 0d 20 20 20 20 64 6f |io___37)|;.    do|
|00001f30| 5f 6c 69 6f 28 26 63 5f | 5f 39 2c 20 26 63 5f 5f |_lio(&c_|_9, &c__|
|00001f40| 31 2c 20 22 54 68 65 20 | 74 65 78 74 20 79 6f 75 |1, "The |text you|
|00001f50| 20 65 6e 74 65 72 65 64 | 20 77 61 73 3a 20 22 2c | entered| was: ",|
|00001f60| 20 32 36 4c 29 3b 0d 20 | 20 20 20 64 6f 5f 6c 69 | 26L);. |   do_li|
|00001f70| 6f 28 26 63 5f 5f 39 2c | 20 26 63 5f 5f 31 2c 20 |o(&c__9,| &c__1, |
|00001f80| 74 65 78 74 2c 20 34 30 | 4c 29 3b 0d 20 20 20 20 |text, 40|L);.    |
|00001f90| 65 5f 77 73 6c 65 28 29 | 3b 0d 20 20 20 20 73 5f |e_wsle()|;.    s_|
|00001fa0| 77 73 6c 65 28 26 69 6f | 5f 5f 5f 33 38 29 3b 0d |wsle(&io|___38);.|
|00001fb0| 20 20 20 20 64 6f 5f 6c | 69 6f 28 26 63 5f 5f 39 |    do_l|io(&c__9|
|00001fc0| 2c 20 26 63 5f 5f 31 2c | 20 22 5c 6e 50 61 72 74 |, &c__1,| "\nPart|
|00001fd0| 20 32 3a 20 20 66 69 6c | 65 20 49 2f 4f 20 74 65 | 2:  fil|e I/O te|
|00001fe0| 73 74 73 2e 20 20 48 69 | 74 20 72 65 74 75 72 6e |sts.  Hi|t return|
|00001ff0| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 0d 09 20 | to cont|inue".. |
|00002000| 20 20 20 22 2e 2e 2e 22 | 2c 20 35 32 4c 29 3b 0d |   "..."|, 52L);.|
|00002010| 20 20 20 20 65 5f 77 73 | 6c 65 28 29 3b 0d 20 20 |    e_ws|le();.  |
|00002020| 20 20 73 5f 72 73 66 65 | 28 26 69 6f 5f 5f 5f 33 |  s_rsfe|(&io___3|
|00002030| 39 29 3b 0d 20 20 20 20 | 64 6f 5f 66 69 6f 28 26 |9);.    |do_fio(&|
|00002040| 63 5f 5f 31 2c 20 74 65 | 78 74 2c 20 34 30 4c 29 |c__1, te|xt, 40L)|
|00002050| 3b 0d 20 20 20 20 65 5f | 72 73 66 65 28 29 3b 0d |;.    e_|rsfe();.|
|00002060| 2f 2a 20 09 46 69 6c 65 | 20 49 2f 4f 20 74 65 73 |/* .File| I/O tes|
|00002070| 74 73 3a 20 20 53 74 6f | 72 65 20 73 6f 6d 65 20 |ts:  Sto|re some |
|00002080| 76 61 6c 75 65 73 20 61 | 6e 64 20 77 72 69 74 65 |values a|nd write|
|00002090| 20 74 68 65 6d 20 74 6f | 20 66 69 6c 65 20 2a 2f | them to| file */|
|000020a0| 0d 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 31 3b |.    for| (i = 1;|
|000020b0| 20 69 20 3c 3d 20 35 3b | 20 2b 2b 69 29 20 7b 0d | i <= 5;| ++i) {.|
|000020c0| 09 6a 5b 69 20 2d 20 31 | 5d 20 3d 20 69 3b 0d 09 |.j[i - 1|] = i;..|
|000020d0| 61 5b 69 20 2d 20 31 5d | 20 3d 20 28 64 6f 75 62 |a[i - 1]| = (doub|
|000020e0| 6c 65 72 65 61 6c 29 20 | 69 3b 0d 20 20 20 20 7d |lereal) |i;.    }|
|000020f0| 0d 20 20 20 20 73 5f 63 | 6f 70 79 28 74 65 78 74 |.    s_c|opy(text|
|00002100| 2c 20 22 41 20 74 65 73 | 74 20 6d 65 73 73 61 67 |, "A tes|t messag|
|00002110| 65 2e 22 2c 20 34 30 4c | 2c 20 31 35 4c 29 3b 0d |e.", 40L|, 15L);.|
|00002120| 20 20 20 20 6f 5f 5f 31 | 2e 6f 65 72 72 20 3d 20 |    o__1|.oerr = |
|00002130| 30 3b 0d 20 20 20 20 6f | 5f 5f 31 2e 6f 75 6e 69 |0;.    o|__1.ouni|
|00002140| 74 20 3d 20 36 30 3b 0d | 20 20 20 20 6f 5f 5f 31 |t = 60;.|    o__1|
|00002150| 2e 6f 66 6e 6d 6c 65 6e | 20 3d 20 38 3b 0d 20 20 |.ofnmlen| = 8;.  |
|00002160| 20 20 6f 5f 5f 31 2e 6f | 66 6e 6d 20 3d 20 22 74 |  o__1.o|fnm = "t|
|00002170| 65 73 74 2e 64 61 74 22 | 3b 0d 20 20 20 20 6f 5f |est.dat"|;.    o_|
|00002180| 5f 31 2e 6f 72 6c 20 3d | 20 30 3b 0d 20 20 20 20 |_1.orl =| 0;.    |
|00002190| 6f 5f 5f 31 2e 6f 73 74 | 61 20 3d 20 30 3b 0d 20 |o__1.ost|a = 0;. |
|000021a0| 20 20 20 6f 5f 5f 31 2e | 6f 61 63 63 20 3d 20 30 |   o__1.|oacc = 0|
|000021b0| 3b 0d 20 20 20 20 6f 5f | 5f 31 2e 6f 66 6d 20 3d |;.    o_|_1.ofm =|
|000021c0| 20 22 75 6e 66 6f 72 6d | 61 74 74 65 64 22 3b 0d | "unform|atted";.|
|000021d0| 20 20 20 20 6f 5f 5f 31 | 2e 6f 62 6c 6e 6b 20 3d |    o__1|.oblnk =|
|000021e0| 20 30 3b 0d 20 20 20 20 | 66 5f 6f 70 65 6e 28 26 | 0;.    |f_open(&|
|000021f0| 6f 5f 5f 31 29 3b 0d 20 | 20 20 20 73 5f 77 73 75 |o__1);. |   s_wsu|
|00002200| 65 28 26 69 6f 5f 5f 5f | 34 32 29 3b 0d 20 20 20 |e(&io___|42);.   |
|00002210| 20 64 6f 5f 75 69 6f 28 | 26 63 5f 5f 31 2c 20 74 | do_uio(|&c__1, t|
|00002220| 65 78 74 2c 20 34 30 4c | 29 3b 0d 20 20 20 20 64 |ext, 40L|);.    d|
|00002230| 6f 5f 75 69 6f 28 26 63 | 5f 5f 35 2c 20 28 63 68 |o_uio(&c|__5, (ch|
|00002240| 61 72 20 2a 29 26 6a 5b | 30 5d 2c 20 28 66 74 6e |ar *)&j[|0], (ftn|
|00002250| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 69 6e 74 65 67 |len)size|of(integ|
|00002260| 65 72 29 29 3b 0d 20 20 | 20 20 64 6f 5f 75 69 6f |er));.  |  do_uio|
|00002270| 28 26 63 5f 5f 35 2c 20 | 28 63 68 61 72 20 2a 29 |(&c__5, |(char *)|
|00002280| 26 61 5b 30 5d 2c 20 28 | 66 74 6e 6c 65 6e 29 73 |&a[0], (|ftnlen)s|
|00002290| 69 7a 65 6f 66 28 72 65 | 61 6c 29 29 3b 0d 20 20 |izeof(re|al));.  |
|000022a0| 20 20 65 5f 77 73 75 65 | 28 29 3b 0d 20 20 20 20 |  e_wsue|();.    |
|000022b0| 63 6c 5f 5f 31 2e 63 65 | 72 72 20 3d 20 30 3b 0d |cl__1.ce|rr = 0;.|
|000022c0| 20 20 20 20 63 6c 5f 5f | 31 2e 63 75 6e 69 74 20 |    cl__|1.cunit |
|000022d0| 3d 20 36 30 3b 0d 20 20 | 20 20 63 6c 5f 5f 31 2e |= 60;.  |  cl__1.|
|000022e0| 63 73 74 61 20 3d 20 30 | 3b 0d 20 20 20 20 66 5f |csta = 0|;.    f_|
|000022f0| 63 6c 6f 73 28 26 63 6c | 5f 5f 31 29 3b 0d 20 20 |clos(&cl|__1);.  |
|00002300| 20 20 73 5f 77 73 6c 65 | 28 26 69 6f 5f 5f 5f 34 |  s_wsle|(&io___4|
|00002310| 33 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |3);.    |do_lio(&|
|00002320| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 57 72 |c__9, &c|__1, "Wr|
|00002330| 6f 74 65 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ote the |followin|
|00002340| 67 20 64 61 74 61 20 74 | 6f 20 66 69 6c 65 20 74 |g data t|o file t|
|00002350| 65 73 74 2e 64 61 74 3a | 5c 6e 22 2c 20 34 33 4c |est.dat:|\n", 43L|
|00002360| 29 3b 0d 20 20 20 20 65 | 5f 77 73 6c 65 28 29 3b |);.    e|_wsle();|
|00002370| 0d 20 20 20 20 73 5f 77 | 73 66 65 28 26 69 6f 5f |.    s_w|sfe(&io_|
|00002380| 5f 5f 34 34 29 3b 0d 20 | 20 20 20 64 6f 5f 66 69 |__44);. |   do_fi|
|00002390| 6f 28 26 63 5f 5f 31 2c | 20 74 65 78 74 2c 20 34 |o(&c__1,| text, 4|
|000023a0| 30 4c 29 3b 0d 20 20 20 | 20 66 6f 72 20 28 69 20 |0L);.   | for (i |
|000023b0| 3d 20 31 3b 20 69 20 3c | 3d 20 35 3b 20 2b 2b 69 |= 1; i <|= 5; ++i|
|000023c0| 29 20 7b 0d 09 64 6f 5f | 66 69 6f 28 26 63 5f 5f |) {..do_|fio(&c__|
|000023d0| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 6a 5b 69 20 |1, (char| *)&j[i |
|000023e0| 2d 20 31 5d 2c 20 28 66 | 74 6e 6c 65 6e 29 73 69 |- 1], (f|tnlen)si|
|000023f0| 7a 65 6f 66 28 69 6e 74 | 65 67 65 72 29 29 3b 0d |zeof(int|eger));.|
|00002400| 20 20 20 20 7d 0d 20 20 | 20 20 66 6f 72 20 28 69 |    }.  |  for (i|
|00002410| 20 3d 20 31 3b 20 69 20 | 3c 3d 20 35 3b 20 2b 2b | = 1; i |<= 5; ++|
|00002420| 69 29 20 7b 0d 09 64 6f | 5f 66 69 6f 28 26 63 5f |i) {..do|_fio(&c_|
|00002430| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 61 5b 69 |_1, (cha|r *)&a[i|
|00002440| 20 2d 20 31 5d 2c 20 28 | 66 74 6e 6c 65 6e 29 73 | - 1], (|ftnlen)s|
|00002450| 69 7a 65 6f 66 28 72 65 | 61 6c 29 29 3b 0d 20 20 |izeof(re|al));.  |
|00002460| 20 20 7d 0d 20 20 20 20 | 65 5f 77 73 66 65 28 29 |  }.    |e_wsfe()|
|00002470| 3b 0d 2f 2a 20 52 65 73 | 65 74 20 74 68 65 20 76 |;./* Res|et the v|
|00002480| 61 72 69 61 62 6c 65 73 | 20 61 6e 64 20 72 65 61 |ariables| and rea|
|00002490| 64 20 74 68 65 6d 20 62 | 61 63 6b 20 2a 2f 0d 20 |d them b|ack */. |
|000024a0| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 31 3b 20 69 |   for (|i = 1; i|
|000024b0| 20 3c 3d 20 35 3b 20 2b | 2b 69 29 20 7b 0d 09 6a | <= 5; +|+i) {..j|
|000024c0| 5b 69 20 2d 20 31 5d 20 | 3d 20 39 39 3b 0d 09 61 |[i - 1] |= 99;..a|
|000024d0| 5b 69 20 2d 20 31 5d 20 | 3d 20 39 39 2e 66 3b 0d |[i - 1] |= 99.f;.|
|000024e0| 20 20 20 20 7d 0d 20 20 | 20 20 73 5f 63 6f 70 79 |    }.  |  s_copy|
|000024f0| 28 74 65 78 74 2c 20 22 | 72 65 73 65 74 22 2c 20 |(text, "|reset", |
|00002500| 34 30 4c 2c 20 35 4c 29 | 3b 0d 20 20 20 20 6f 5f |40L, 5L)|;.    o_|
|00002510| 5f 31 2e 6f 65 72 72 20 | 3d 20 30 3b 0d 20 20 20 |_1.oerr |= 0;.   |
|00002520| 20 6f 5f 5f 31 2e 6f 75 | 6e 69 74 20 3d 20 35 30 | o__1.ou|nit = 50|
|00002530| 3b 0d 20 20 20 20 6f 5f | 5f 31 2e 6f 66 6e 6d 6c |;.    o_|_1.ofnml|
|00002540| 65 6e 20 3d 20 38 3b 0d | 20 20 20 20 6f 5f 5f 31 |en = 8;.|    o__1|
|00002550| 2e 6f 66 6e 6d 20 3d 20 | 22 74 65 73 74 2e 64 61 |.ofnm = |"test.da|
|00002560| 74 22 3b 0d 20 20 20 20 | 6f 5f 5f 31 2e 6f 72 6c |t";.    |o__1.orl|
|00002570| 20 3d 20 30 3b 0d 20 20 | 20 20 6f 5f 5f 31 2e 6f | = 0;.  |  o__1.o|
|00002580| 73 74 61 20 3d 20 30 3b | 0d 20 20 20 20 6f 5f 5f |sta = 0;|.    o__|
|00002590| 31 2e 6f 61 63 63 20 3d | 20 30 3b 0d 20 20 20 20 |1.oacc =| 0;.    |
|000025a0| 6f 5f 5f 31 2e 6f 66 6d | 20 3d 20 22 75 6e 66 6f |o__1.ofm| = "unfo|
|000025b0| 72 6d 61 74 74 65 64 22 | 3b 0d 20 20 20 20 6f 5f |rmatted"|;.    o_|
|000025c0| 5f 31 2e 6f 62 6c 6e 6b | 20 3d 20 30 3b 0d 20 20 |_1.oblnk| = 0;.  |
|000025d0| 20 20 66 5f 6f 70 65 6e | 28 26 6f 5f 5f 31 29 3b |  f_open|(&o__1);|
|000025e0| 0d 20 20 20 20 73 5f 72 | 73 75 65 28 26 69 6f 5f |.    s_r|sue(&io_|
|000025f0| 5f 5f 34 35 29 3b 0d 20 | 20 20 20 64 6f 5f 75 69 |__45);. |   do_ui|
|00002600| 6f 28 26 63 5f 5f 31 2c | 20 74 65 78 74 2c 20 34 |o(&c__1,| text, 4|
|00002610| 30 4c 29 3b 0d 20 20 20 | 20 64 6f 5f 75 69 6f 28 |0L);.   | do_uio(|
|00002620| 26 63 5f 5f 35 2c 20 28 | 63 68 61 72 20 2a 29 26 |&c__5, (|char *)&|
|00002630| 6a 5b 30 5d 2c 20 28 66 | 74 6e 6c 65 6e 29 73 69 |j[0], (f|tnlen)si|
|00002640| 7a 65 6f 66 28 69 6e 74 | 65 67 65 72 29 29 3b 0d |zeof(int|eger));.|
|00002650| 20 20 20 20 64 6f 5f 75 | 69 6f 28 26 63 5f 5f 35 |    do_u|io(&c__5|
|00002660| 2c 20 28 63 68 61 72 20 | 2a 29 26 61 5b 30 5d 2c |, (char |*)&a[0],|
|00002670| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00002680| 72 65 61 6c 29 29 3b 0d | 20 20 20 20 65 5f 72 73 |real));.|    e_rs|
|00002690| 75 65 28 29 3b 0d 20 20 | 20 20 63 6c 5f 5f 31 2e |ue();.  |  cl__1.|
|000026a0| 63 65 72 72 20 3d 20 30 | 3b 0d 20 20 20 20 63 6c |cerr = 0|;.    cl|
|000026b0| 5f 5f 31 2e 63 75 6e 69 | 74 20 3d 20 35 30 3b 0d |__1.cuni|t = 50;.|
|000026c0| 20 20 20 20 63 6c 5f 5f | 31 2e 63 73 74 61 20 3d |    cl__|1.csta =|
|000026d0| 20 30 3b 0d 20 20 20 20 | 66 5f 63 6c 6f 73 28 26 | 0;.    |f_clos(&|
|000026e0| 63 6c 5f 5f 31 29 3b 0d | 20 20 20 20 73 5f 77 73 |cl__1);.|    s_ws|
|000026f0| 6c 65 28 26 69 6f 5f 5f | 5f 34 36 29 3b 0d 20 20 |le(&io__|_46);.  |
|00002700| 20 20 64 6f 5f 6c 69 6f | 28 26 63 5f 5f 39 2c 20 |  do_lio|(&c__9, |
|00002710| 26 63 5f 5f 31 2c 20 22 | 5c 6e 52 65 61 64 20 74 |&c__1, "|\nRead t|
|00002720| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 64 61 74 |he follo|wing dat|
|00002730| 61 20 66 72 6f 6d 20 66 | 69 6c 65 20 74 65 73 74 |a from f|ile test|
|00002740| 2e 64 61 74 3a 5c 6e 22 | 2c 20 0d 09 20 20 20 20 |.dat:\n"|, ..    |
|00002750| 34 35 4c 29 3b 0d 20 20 | 20 20 65 5f 77 73 6c 65 |45L);.  |  e_wsle|
|00002760| 28 29 3b 0d 20 20 20 20 | 73 5f 77 73 66 65 28 26 |();.    |s_wsfe(&|
|00002770| 69 6f 5f 5f 5f 34 37 29 | 3b 0d 20 20 20 20 64 6f |io___47)|;.    do|
|00002780| 5f 66 69 6f 28 26 63 5f | 5f 31 2c 20 74 65 78 74 |_fio(&c_|_1, text|
|00002790| 2c 20 34 30 4c 29 3b 0d | 20 20 20 20 66 6f 72 20 |, 40L);.|    for |
|000027a0| 28 69 20 3d 20 31 3b 20 | 69 20 3c 3d 20 35 3b 20 |(i = 1; |i <= 5; |
|000027b0| 2b 2b 69 29 20 7b 0d 09 | 64 6f 5f 66 69 6f 28 26 |++i) {..|do_fio(&|
|000027c0| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 6a |c__1, (c|har *)&j|
|000027d0| 5b 69 20 2d 20 31 5d 2c | 20 28 66 74 6e 6c 65 6e |[i - 1],| (ftnlen|
|000027e0| 29 73 69 7a 65 6f 66 28 | 69 6e 74 65 67 65 72 29 |)sizeof(|integer)|
|000027f0| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 66 6f 72 |);.    }|.    for|
|00002800| 20 28 69 20 3d 20 31 3b | 20 69 20 3c 3d 20 35 3b | (i = 1;| i <= 5;|
|00002810| 20 2b 2b 69 29 20 7b 0d | 09 64 6f 5f 66 69 6f 28 | ++i) {.|.do_fio(|
|00002820| 26 63 5f 5f 31 2c 20 28 | 63 68 61 72 20 2a 29 26 |&c__1, (|char *)&|
|00002830| 61 5b 69 20 2d 20 31 5d | 2c 20 28 66 74 6e 6c 65 |a[i - 1]|, (ftnle|
|00002840| 6e 29 73 69 7a 65 6f 66 | 28 72 65 61 6c 29 29 3b |n)sizeof|(real));|
|00002850| 0d 20 20 20 20 7d 0d 20 | 20 20 20 65 5f 77 73 66 |.    }. |   e_wsf|
|00002860| 65 28 29 3b 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |e();.   | return |
|00002870| 30 3b 0d 7d 20 2f 2a 20 | 69 5f 6f 5f 74 65 73 74 |0;.} /* |i_o_test|
|00002880| 5f 5f 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |__ */../|********|
|00002890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028d0| 2a 2a 2f 0d 0d 2f 2a 20 | 09 53 75 62 72 6f 75 74 |**/../* |.Subrout|
|000028e0| 69 6e 65 20 74 6f 20 64 | 6f 20 74 68 65 20 69 6e |ine to d|o the in|
|000028f0| 74 65 67 65 72 20 6d 61 | 74 68 20 74 65 73 74 73 |teger ma|th tests|
|00002900| 20 2a 2f 0d 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | */../**|********|
|00002910| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002950| 2f 0d 2f 2a 20 53 75 62 | 72 6f 75 74 69 6e 65 20 |/./* Sub|routine |
|00002960| 2a 2f 20 69 6e 74 20 69 | 6e 74 5f 74 65 73 74 5f |*/ int i|nt_test_|
|00002970| 5f 28 69 6e 74 65 67 65 | 72 20 2a 6d 29 0d 7b 0d |_(intege|r *m).{.|
|00002980| 20 20 20 20 2f 2a 20 46 | 6f 72 6d 61 74 20 73 74 |    /* F|ormat st|
|00002990| 72 69 6e 67 73 20 2a 2f | 0d 20 20 20 20 73 74 61 |rings */|.    sta|
|000029a0| 74 69 63 20 63 68 61 72 | 20 66 6d 74 5f 32 30 33 |tic char| fmt_203|
|000029b0| 5b 5d 20 3d 20 22 28 31 | 30 78 2c 5c 30 30 32 6e |[] = "(1|0x,\002n|
|000029c0| 5c 30 30 32 2c 35 78 2c | 5c 30 30 32 6e 5e 32 5c |\002,5x,|\002n^2\|
|000029d0| 30 30 32 2c 35 78 2c 5c | 30 30 32 6e 5e 33 5c 30 |002,5x,\|002n^3\0|
|000029e0| 30 32 2c 22 0d 09 20 20 | 20 20 22 35 78 2c 5c 30 |02,"..  |  "5x,\0|
|000029f0| 30 32 6e 2f 32 5c 30 30 | 32 2c 33 78 2c 5c 30 30 |02n/2\00|2,3x,\00|
|00002a00| 32 6e 5e 32 2f 32 5c 30 | 30 32 2c 33 78 2c 5c 30 |2n^2/2\0|02,3x,\0|
|00002a10| 30 32 6e 5e 33 2f 32 5c | 30 30 32 29 22 3b 0d 20 |02n^3/2\|002)";. |
|00002a20| 20 20 20 73 74 61 74 69 | 63 20 63 68 61 72 20 66 |   stati|c char f|
|00002a30| 6d 74 5f 32 30 32 5b 5d | 20 3d 20 22 28 35 78 2c |mt_202[]| = "(5x,|
|00002a40| 36 28 69 36 2c 32 78 29 | 29 22 3b 0d 0d 20 20 20 |6(i6,2x)|)";..   |
|00002a50| 20 2f 2a 20 53 79 73 74 | 65 6d 20 67 65 6e 65 72 | /* Syst|em gener|
|00002a60| 61 74 65 64 20 6c 6f 63 | 61 6c 73 20 2a 2f 0d 20 |ated loc|als */. |
|00002a70| 20 20 20 69 6e 74 65 67 | 65 72 20 69 5f 5f 31 2c |   integ|er i__1,|
|00002a80| 20 69 5f 5f 32 2c 20 69 | 5f 5f 33 2c 20 69 5f 5f | i__2, i|__3, i__|
|00002a90| 34 3b 0d 0d 20 20 20 20 | 2f 2a 20 42 75 69 6c 74 |4;..    |/* Built|
|00002aa0| 69 6e 20 66 75 6e 63 74 | 69 6f 6e 73 20 2a 2f 0d |in funct|ions */.|
|00002ab0| 20 20 20 20 69 6e 74 65 | 67 65 72 20 73 5f 77 73 |    inte|ger s_ws|
|00002ac0| 6c 65 28 63 69 6c 69 73 | 74 20 2a 29 2c 20 64 6f |le(cilis|t *), do|
|00002ad0| 5f 6c 69 6f 28 69 6e 74 | 65 67 65 72 20 2a 2c 20 |_lio(int|eger *, |
|00002ae0| 69 6e 74 65 67 65 72 20 | 2a 2c 20 63 68 61 72 20 |integer |*, char |
|00002af0| 2a 2c 20 66 74 6e 6c 65 | 6e 29 2c 20 0d 09 20 20 |*, ftnle|n), ..  |
|00002b00| 20 20 65 5f 77 73 6c 65 | 28 76 6f 69 64 29 2c 20 |  e_wsle|(void), |
|00002b10| 73 5f 77 73 66 65 28 63 | 69 6c 69 73 74 20 2a 29 |s_wsfe(c|ilist *)|
|00002b20| 2c 20 65 5f 77 73 66 65 | 28 76 6f 69 64 29 2c 20 |, e_wsfe|(void), |
|00002b30| 64 6f 5f 66 69 6f 28 69 | 6e 74 65 67 65 72 20 2a |do_fio(i|nteger *|
|00002b40| 2c 20 0d 09 20 20 20 20 | 63 68 61 72 20 2a 2c 20 |, ..    |char *, |
|00002b50| 66 74 6e 6c 65 6e 29 3b | 0d 0d 20 20 20 20 2f 2a |ftnlen);|..    /*|
|00002b60| 20 4c 6f 63 61 6c 20 76 | 61 72 69 61 62 6c 65 73 | Local v|ariables|
|00002b70| 20 2a 2f 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 | */.    |integer |
|00002b80| 69 2c 20 6a 2c 20 6b 3b | 0d 0d 20 20 20 20 2f 2a |i, j, k;|..    /*|
|00002b90| 20 46 6f 72 74 72 61 6e | 20 49 2f 4f 20 62 6c 6f | Fortran| I/O blo|
|00002ba0| 63 6b 73 20 2a 2f 0d 20 | 20 20 20 73 74 61 74 69 |cks */. |   stati|
|00002bb0| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 34 38 |c cilist| io___48|
|00002bc0| 20 3d 20 7b 20 30 2c 20 | 36 2c 20 30 2c 20 30 2c | = { 0, |6, 0, 0,|
|00002bd0| 20 30 20 7d 3b 0d 20 20 | 20 20 73 74 61 74 69 63 | 0 };.  |  static|
|00002be0| 20 63 69 6c 69 73 74 20 | 69 6f 5f 5f 5f 34 39 20 | cilist |io___49 |
|00002bf0| 3d 20 7b 20 30 2c 20 36 | 2c 20 30 2c 20 66 6d 74 |= { 0, 6|, 0, fmt|
|00002c00| 5f 32 30 33 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |_203, 0 |};.    s|
|00002c10| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|00002c20| 5f 5f 35 33 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__53 = {| 0, 6, 0|
|00002c30| 2c 20 66 6d 74 5f 32 30 | 32 2c 20 30 20 7d 3b 0d |, fmt_20|2, 0 };.|
|00002c40| 0d 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |..    s_|wsle(&io|
|00002c50| 5f 5f 5f 34 38 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___48);.|    do_l|
|00002c60| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00002c70| 20 22 5c 6e 47 65 6e 65 | 72 61 74 65 20 61 20 74 | "\nGene|rate a t|
|00002c80| 61 62 6c 65 20 6f 66 20 | 69 6e 74 65 67 65 72 73 |able of |integers|
|00002c90| 2c 20 73 71 75 61 72 65 | 73 2c 20 63 75 62 65 73 |, square|s, cubes|
|00002ca0| 2c 20 61 6e 22 0d 09 20 | 20 20 20 22 64 20 74 68 |, an".. |   "d th|
|00002cb0| 65 69 72 20 68 61 6c 76 | 65 73 2e 5c 6e 22 2c 20 |eir halv|es.\n", |
|00002cc0| 36 35 4c 29 3b 0d 20 20 | 20 20 65 5f 77 73 6c 65 |65L);.  |  e_wsle|
|00002cd0| 28 29 3b 0d 20 20 20 20 | 73 5f 77 73 66 65 28 26 |();.    |s_wsfe(&|
|00002ce0| 69 6f 5f 5f 5f 34 39 29 | 3b 0d 20 20 20 20 65 5f |io___49)|;.    e_|
|00002cf0| 77 73 66 65 28 29 3b 0d | 20 20 20 20 69 5f 5f 31 |wsfe();.|    i__1|
|00002d00| 20 3d 20 2a 6d 3b 0d 20 | 20 20 20 66 6f 72 20 28 | = *m;. |   for (|
|00002d10| 69 20 3d 20 31 3b 20 69 | 20 3c 3d 20 69 5f 5f 31 |i = 1; i| <= i__1|
|00002d20| 3b 20 2b 2b 69 29 20 7b | 0d 2f 2a 20 43 6f 6d 70 |; ++i) {|./* Comp|
|00002d30| 75 74 69 6e 67 20 32 6e | 64 20 70 6f 77 65 72 20 |uting 2n|d power |
|00002d40| 2a 2f 0d 09 69 5f 5f 32 | 20 3d 20 69 3b 0d 09 6a |*/..i__2| = i;..j|
|00002d50| 20 3d 20 69 5f 5f 32 20 | 2a 20 69 5f 5f 32 3b 0d | = i__2 |* i__2;.|
|00002d60| 2f 2a 20 43 6f 6d 70 75 | 74 69 6e 67 20 33 72 64 |/* Compu|ting 3rd|
|00002d70| 20 70 6f 77 65 72 20 2a | 2f 0d 09 69 5f 5f 32 20 | power *|/..i__2 |
|00002d80| 3d 20 69 2c 20 69 5f 5f | 33 20 3d 20 69 5f 5f 32 |= i, i__|3 = i__2|
|00002d90| 3b 0d 09 6b 20 3d 20 69 | 5f 5f 33 20 2a 20 28 69 |;..k = i|__3 * (i|
|00002da0| 5f 5f 32 20 2a 20 69 5f | 5f 32 29 3b 0d 09 73 5f |__2 * i_|_2);..s_|
|00002db0| 77 73 66 65 28 26 69 6f | 5f 5f 5f 35 33 29 3b 0d |wsfe(&io|___53);.|
|00002dc0| 09 64 6f 5f 66 69 6f 28 | 26 63 5f 5f 31 2c 20 28 |.do_fio(|&c__1, (|
|00002dd0| 63 68 61 72 20 2a 29 26 | 69 2c 20 28 66 74 6e 6c |char *)&|i, (ftnl|
|00002de0| 65 6e 29 73 69 7a 65 6f | 66 28 69 6e 74 65 67 65 |en)sizeo|f(intege|
|00002df0| 72 29 29 3b 0d 09 64 6f | 5f 66 69 6f 28 26 63 5f |r));..do|_fio(&c_|
|00002e00| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 6a 2c 20 |_1, (cha|r *)&j, |
|00002e10| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 69 |(ftnlen)|sizeof(i|
|00002e20| 6e 74 65 67 65 72 29 29 | 3b 0d 09 64 6f 5f 66 69 |nteger))|;..do_fi|
|00002e30| 6f 28 26 63 5f 5f 31 2c | 20 28 63 68 61 72 20 2a |o(&c__1,| (char *|
|00002e40| 29 26 6b 2c 20 28 66 74 | 6e 6c 65 6e 29 73 69 7a |)&k, (ft|nlen)siz|
|00002e50| 65 6f 66 28 69 6e 74 65 | 67 65 72 29 29 3b 0d 09 |eof(inte|ger));..|
|00002e60| 69 5f 5f 32 20 3d 20 69 | 20 2f 20 32 3b 0d 09 64 |i__2 = i| / 2;..d|
|00002e70| 6f 5f 66 69 6f 28 26 63 | 5f 5f 31 2c 20 28 63 68 |o_fio(&c|__1, (ch|
|00002e80| 61 72 20 2a 29 26 69 5f | 5f 32 2c 20 28 66 74 6e |ar *)&i_|_2, (ftn|
|00002e90| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 69 6e 74 65 67 |len)size|of(integ|
|00002ea0| 65 72 29 29 3b 0d 09 69 | 5f 5f 33 20 3d 20 6a 20 |er));..i|__3 = j |
|00002eb0| 2f 20 32 3b 0d 09 64 6f | 5f 66 69 6f 28 26 63 5f |/ 2;..do|_fio(&c_|
|00002ec0| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 69 5f 5f |_1, (cha|r *)&i__|
|00002ed0| 33 2c 20 28 66 74 6e 6c | 65 6e 29 73 69 7a 65 6f |3, (ftnl|en)sizeo|
|00002ee0| 66 28 69 6e 74 65 67 65 | 72 29 29 3b 0d 09 69 5f |f(intege|r));..i_|
|00002ef0| 5f 34 20 3d 20 6b 20 2f | 20 32 3b 0d 09 64 6f 5f |_4 = k /| 2;..do_|
|00002f00| 66 69 6f 28 26 63 5f 5f | 31 2c 20 28 63 68 61 72 |fio(&c__|1, (char|
|00002f10| 20 2a 29 26 69 5f 5f 34 | 2c 20 28 66 74 6e 6c 65 | *)&i__4|, (ftnle|
|00002f20| 6e 29 73 69 7a 65 6f 66 | 28 69 6e 74 65 67 65 72 |n)sizeof|(integer|
|00002f30| 29 29 3b 0d 09 65 5f 77 | 73 66 65 28 29 3b 0d 20 |));..e_w|sfe();. |
|00002f40| 20 20 20 7d 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |   }.   | return |
|00002f50| 30 3b 0d 7d 20 2f 2a 20 | 69 6e 74 5f 74 65 73 74 |0;.} /* |int_test|
|00002f60| 5f 5f 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |__ */../|********|
|00002f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fb0| 2a 2a 2f 0d 0d 2f 2a 20 | 09 53 75 62 72 6f 75 74 |**/../* |.Subrout|
|00002fc0| 69 6e 65 20 74 6f 20 64 | 6f 20 74 68 65 20 66 6c |ine to d|o the fl|
|00002fd0| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 6d 61 74 |oating p|oint mat|
|00002fe0| 68 20 74 65 73 74 73 20 | 2a 2f 0d 0d 2f 2a 2a 2a |h tests |*/../***|
|00002ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003030| 2a 2a 2a 2a 2a 2a 2a 2f | 0d 2f 2a 20 53 75 62 72 |*******/|./* Subr|
|00003040| 6f 75 74 69 6e 65 20 2a | 2f 20 69 6e 74 20 66 6c |outine *|/ int fl|
|00003050| 74 5f 74 65 73 74 5f 5f | 28 69 6e 74 65 67 65 72 |t_test__|(integer|
|00003060| 20 2a 6d 29 0d 7b 0d 20 | 20 20 20 2f 2a 20 46 6f | *m).{. |   /* Fo|
|00003070| 72 6d 61 74 20 73 74 72 | 69 6e 67 73 20 2a 2f 0d |rmat str|ings */.|
|00003080| 20 20 20 20 73 74 61 74 | 69 63 20 63 68 61 72 20 |    stat|ic char |
|00003090| 66 6d 74 5f 32 30 35 5b | 5d 20 3d 20 22 28 31 32 |fmt_205[|] = "(12|
|000030a0| 78 2c 5c 30 30 32 78 5c | 30 30 32 2c 36 78 2c 5c |x,\002x\|002,6x,\|
|000030b0| 30 30 32 78 5e 32 5c 30 | 30 32 2c 36 78 2c 5c 30 |002x^2\0|02,6x,\0|
|000030c0| 30 32 78 5e 33 5c 30 30 | 32 2c 22 0d 09 20 20 20 |02x^3\00|2,"..   |
|000030d0| 20 22 36 78 2c 5c 30 30 | 32 78 2f 32 5c 30 30 32 | "6x,\00|2x/2\002|
|000030e0| 2c 34 78 2c 5c 30 30 32 | 78 5e 32 2f 32 5c 30 30 |,4x,\002|x^2/2\00|
|000030f0| 32 2c 34 78 2c 5c 30 30 | 32 78 5e 33 2f 32 5c 30 |2,4x,\00|2x^3/2\0|
|00003100| 30 32 29 22 3b 0d 20 20 | 20 20 73 74 61 74 69 63 |02)";.  |  static|
|00003110| 20 63 68 61 72 20 66 6d | 74 5f 32 30 31 5b 5d 20 | char fm|t_201[] |
|00003120| 3d 20 22 28 35 78 2c 36 | 28 66 38 2e 32 2c 31 78 |= "(5x,6|(f8.2,1x|
|00003130| 29 29 22 3b 0d 0d 20 20 | 20 20 2f 2a 20 53 79 73 |))";..  |  /* Sys|
|00003140| 74 65 6d 20 67 65 6e 65 | 72 61 74 65 64 20 6c 6f |tem gene|rated lo|
|00003150| 63 61 6c 73 20 2a 2f 0d | 20 20 20 20 69 6e 74 65 |cals */.|    inte|
|00003160| 67 65 72 20 69 5f 5f 31 | 3b 0d 20 20 20 20 72 65 |ger i__1|;.    re|
|00003170| 61 6c 20 72 5f 5f 31 2c | 20 72 5f 5f 32 2c 20 72 |al r__1,| r__2, r|
|00003180| 5f 5f 33 3b 0d 0d 20 20 | 20 20 2f 2a 20 42 75 69 |__3;..  |  /* Bui|
|00003190| 6c 74 69 6e 20 66 75 6e | 63 74 69 6f 6e 73 20 2a |ltin fun|ctions *|
|000031a0| 2f 0d 20 20 20 20 69 6e | 74 65 67 65 72 20 73 5f |/.    in|teger s_|
|000031b0| 77 73 6c 65 28 63 69 6c | 69 73 74 20 2a 29 2c 20 |wsle(cil|ist *), |
|000031c0| 64 6f 5f 6c 69 6f 28 69 | 6e 74 65 67 65 72 20 2a |do_lio(i|nteger *|
|000031d0| 2c 20 69 6e 74 65 67 65 | 72 20 2a 2c 20 63 68 61 |, intege|r *, cha|
|000031e0| 72 20 2a 2c 20 66 74 6e | 6c 65 6e 29 2c 20 0d 09 |r *, ftn|len), ..|
|000031f0| 20 20 20 20 65 5f 77 73 | 6c 65 28 76 6f 69 64 29 |    e_ws|le(void)|
|00003200| 2c 20 73 5f 77 73 66 65 | 28 63 69 6c 69 73 74 20 |, s_wsfe|(cilist |
|00003210| 2a 29 2c 20 65 5f 77 73 | 66 65 28 76 6f 69 64 29 |*), e_ws|fe(void)|
|00003220| 2c 20 64 6f 5f 66 69 6f | 28 69 6e 74 65 67 65 72 |, do_fio|(integer|
|00003230| 20 2a 2c 20 0d 09 20 20 | 20 20 63 68 61 72 20 2a | *, ..  |  char *|
|00003240| 2c 20 66 74 6e 6c 65 6e | 29 3b 0d 0d 20 20 20 20 |, ftnlen|);..    |
|00003250| 2f 2a 20 4c 6f 63 61 6c | 20 76 61 72 69 61 62 6c |/* Local| variabl|
|00003260| 65 73 20 2a 2f 0d 20 20 | 20 20 69 6e 74 65 67 65 |es */.  |  intege|
|00003270| 72 20 69 3b 0d 20 20 20 | 20 72 65 61 6c 20 78 31 |r i;.   | real x1|
|00003280| 2c 20 78 32 2c 20 78 33 | 3b 0d 0d 20 20 20 20 2f |, x2, x3|;..    /|
|00003290| 2a 20 46 6f 72 74 72 61 | 6e 20 49 2f 4f 20 62 6c |* Fortra|n I/O bl|
|000032a0| 6f 63 6b 73 20 2a 2f 0d | 20 20 20 20 73 74 61 74 |ocks */.|    stat|
|000032b0| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 35 |ic cilis|t io___5|
|000032c0| 34 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 30 |4 = { 0,| 6, 0, 0|
|000032d0| 2c 20 30 20 7d 3b 0d 20 | 20 20 20 73 74 61 74 69 |, 0 };. |   stati|
|000032e0| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 35 35 |c cilist| io___55|
|000032f0| 20 3d 20 7b 20 30 2c 20 | 36 2c 20 30 2c 20 66 6d | = { 0, |6, 0, fm|
|00003300| 74 5f 32 30 35 2c 20 30 | 20 7d 3b 0d 20 20 20 20 |t_205, 0| };.    |
|00003310| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00003320| 5f 5f 5f 36 30 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___60 = |{ 0, 6, |
|00003330| 30 2c 20 66 6d 74 5f 32 | 30 31 2c 20 30 20 7d 3b |0, fmt_2|01, 0 };|
|00003340| 0d 0d 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |...    s|_wsle(&i|
|00003350| 6f 5f 5f 5f 35 34 29 3b | 0d 20 20 20 20 64 6f 5f |o___54);|.    do_|
|00003360| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00003370| 2c 20 22 5c 6e 47 65 6e | 65 72 61 74 65 20 61 20 |, "\nGen|erate a |
|00003380| 74 61 62 6c 65 20 6f 66 | 20 66 6c 6f 61 74 73 2c |table of| floats,|
|00003390| 20 74 68 65 69 72 20 73 | 71 75 61 72 65 73 2c 20 | their s|quares, |
|000033a0| 63 75 62 65 73 22 0d 09 | 20 20 20 20 22 2c 20 61 |cubes"..|    ", a|
|000033b0| 6e 64 20 74 68 65 69 72 | 20 68 61 6c 76 65 73 2e |nd their| halves.|
|000033c0| 5c 6e 22 2c 20 36 39 4c | 29 3b 0d 20 20 20 20 65 |\n", 69L|);.    e|
|000033d0| 5f 77 73 6c 65 28 29 3b | 0d 20 20 20 20 73 5f 77 |_wsle();|.    s_w|
|000033e0| 73 66 65 28 26 69 6f 5f | 5f 5f 35 35 29 3b 0d 20 |sfe(&io_|__55);. |
|000033f0| 20 20 20 65 5f 77 73 66 | 65 28 29 3b 0d 20 20 20 |   e_wsf|e();.   |
|00003400| 20 69 5f 5f 31 20 3d 20 | 2a 6d 3b 0d 20 20 20 20 | i__1 = |*m;.    |
|00003410| 66 6f 72 20 28 69 20 3d | 20 31 3b 20 69 20 3c 3d |for (i =| 1; i <=|
|00003420| 20 69 5f 5f 31 3b 20 2b | 2b 69 29 20 7b 0d 09 78 | i__1; +|+i) {..x|
|00003430| 31 20 3d 20 69 20 2a 20 | 31 2e 66 3b 0d 2f 2a 20 |1 = i * |1.f;./* |
|00003440| 43 6f 6d 70 75 74 69 6e | 67 20 32 6e 64 20 70 6f |Computin|g 2nd po|
|00003450| 77 65 72 20 2a 2f 0d 09 | 72 5f 5f 31 20 3d 20 78 |wer */..|r__1 = x|
|00003460| 31 3b 0d 09 78 32 20 3d | 20 72 5f 5f 31 20 2a 20 |1;..x2 =| r__1 * |
|00003470| 72 5f 5f 31 3b 0d 2f 2a | 20 43 6f 6d 70 75 74 69 |r__1;./*| Computi|
|00003480| 6e 67 20 33 72 64 20 70 | 6f 77 65 72 20 2a 2f 0d |ng 3rd p|ower */.|
|00003490| 09 72 5f 5f 31 20 3d 20 | 78 31 2c 20 72 5f 5f 32 |.r__1 = |x1, r__2|
|000034a0| 20 3d 20 72 5f 5f 31 3b | 0d 09 78 33 20 3d 20 72 | = r__1;|..x3 = r|
|000034b0| 5f 5f 32 20 2a 20 28 72 | 5f 5f 31 20 2a 20 72 5f |__2 * (r|__1 * r_|
|000034c0| 5f 31 29 3b 0d 09 73 5f | 77 73 66 65 28 26 69 6f |_1);..s_|wsfe(&io|
|000034d0| 5f 5f 5f 36 30 29 3b 0d | 09 64 6f 5f 66 69 6f 28 |___60);.|.do_fio(|
|000034e0| 26 63 5f 5f 31 2c 20 28 | 63 68 61 72 20 2a 29 26 |&c__1, (|char *)&|
|000034f0| 78 31 2c 20 28 66 74 6e | 6c 65 6e 29 73 69 7a 65 |x1, (ftn|len)size|
|00003500| 6f 66 28 72 65 61 6c 29 | 29 3b 0d 09 64 6f 5f 66 |of(real)|);..do_f|
|00003510| 69 6f 28 26 63 5f 5f 31 | 2c 20 28 63 68 61 72 20 |io(&c__1|, (char |
|00003520| 2a 29 26 78 32 2c 20 28 | 66 74 6e 6c 65 6e 29 73 |*)&x2, (|ftnlen)s|
|00003530| 69 7a 65 6f 66 28 72 65 | 61 6c 29 29 3b 0d 09 64 |izeof(re|al));..d|
|00003540| 6f 5f 66 69 6f 28 26 63 | 5f 5f 31 2c 20 28 63 68 |o_fio(&c|__1, (ch|
|00003550| 61 72 20 2a 29 26 78 33 | 2c 20 28 66 74 6e 6c 65 |ar *)&x3|, (ftnle|
|00003560| 6e 29 73 69 7a 65 6f 66 | 28 72 65 61 6c 29 29 3b |n)sizeof|(real));|
|00003570| 0d 09 72 5f 5f 31 20 3d | 20 78 31 20 2f 20 32 3b |..r__1 =| x1 / 2;|
|00003580| 0d 09 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |..do_fio|(&c__1, |
|00003590| 28 63 68 61 72 20 2a 29 | 26 72 5f 5f 31 2c 20 28 |(char *)|&r__1, (|
|000035a0| 66 74 6e 6c 65 6e 29 73 | 69 7a 65 6f 66 28 72 65 |ftnlen)s|izeof(re|
|000035b0| 61 6c 29 29 3b 0d 09 72 | 5f 5f 32 20 3d 20 78 32 |al));..r|__2 = x2|
|000035c0| 20 2f 20 32 3b 0d 09 64 | 6f 5f 66 69 6f 28 26 63 | / 2;..d|o_fio(&c|
|000035d0| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 72 5f |__1, (ch|ar *)&r_|
|000035e0| 5f 32 2c 20 28 66 74 6e | 6c 65 6e 29 73 69 7a 65 |_2, (ftn|len)size|
|000035f0| 6f 66 28 72 65 61 6c 29 | 29 3b 0d 09 72 5f 5f 33 |of(real)|);..r__3|
|00003600| 20 3d 20 78 33 20 2f 20 | 32 3b 0d 09 64 6f 5f 66 | = x3 / |2;..do_f|
|00003610| 69 6f 28 26 63 5f 5f 31 | 2c 20 28 63 68 61 72 20 |io(&c__1|, (char |
|00003620| 2a 29 26 72 5f 5f 33 2c | 20 28 66 74 6e 6c 65 6e |*)&r__3,| (ftnlen|
|00003630| 29 73 69 7a 65 6f 66 28 | 72 65 61 6c 29 29 3b 0d |)sizeof(|real));.|
|00003640| 09 65 5f 77 73 66 65 28 | 29 3b 0d 20 20 20 20 7d |.e_wsfe(|);.    }|
|00003650| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 30 3b 0d 7d |.    ret|urn 0;.}|
|00003660| 20 2f 2a 20 66 6c 74 5f | 74 65 73 74 5f 5f 20 2a | /* flt_|test__ *|
|00003670| 2f 0d 0d 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/../****|********|
|00003680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|000036c0| 0d 2f 2a 20 09 53 75 62 | 72 6f 75 74 69 6e 65 20 |./* .Sub|routine |
|000036d0| 74 6f 20 64 6f 20 74 68 | 65 20 61 6c 67 65 62 72 |to do th|e algebr|
|000036e0| 61 69 63 20 66 75 6e 63 | 74 69 6f 6e 20 74 65 73 |aic func|tion tes|
|000036f0| 74 73 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |ts */../|********|
|00003700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003740| 2a 2a 2f 0d 2f 2a 20 53 | 75 62 72 6f 75 74 69 6e |**/./* S|ubroutin|
|00003750| 65 20 2a 2f 20 69 6e 74 | 20 61 6c 67 5f 74 65 73 |e */ int| alg_tes|
|00003760| 74 5f 5f 28 69 6e 74 65 | 67 65 72 20 2a 6d 29 0d |t__(inte|ger *m).|
|00003770| 7b 0d 20 20 20 20 2f 2a | 20 46 6f 72 6d 61 74 20 |{.    /*| Format |
|00003780| 73 74 72 69 6e 67 73 20 | 2a 2f 0d 20 20 20 20 73 |strings |*/.    s|
|00003790| 74 61 74 69 63 20 63 68 | 61 72 20 66 6d 74 5f 33 |tatic ch|ar fmt_3|
|000037a0| 30 35 5b 5d 20 3d 20 22 | 28 31 30 78 2c 5c 30 30 |05[] = "|(10x,\00|
|000037b0| 32 78 5c 30 30 32 2c 37 | 78 2c 5c 30 30 32 53 51 |2x\002,7|x,\002SQ|
|000037c0| 52 54 28 78 29 5c 30 30 | 32 2c 34 78 2c 5c 30 30 |RT(x)\00|2,4x,\00|
|000037d0| 32 43 55 52 54 22 0d 09 | 20 20 20 20 22 28 78 29 |2CURT"..|    "(x)|
|000037e0| 5c 30 30 32 2c 33 78 2c | 5c 30 30 32 53 51 52 54 |\002,3x,|\002SQRT|
|000037f0| 28 78 29 5e 32 5c 30 30 | 32 2c 32 78 2c 5c 30 30 |(x)^2\00|2,2x,\00|
|00003800| 32 43 55 52 54 28 78 29 | 5e 33 5c 30 30 32 29 22 |2CURT(x)|^3\002)"|
|00003810| 3b 0d 20 20 20 20 73 74 | 61 74 69 63 20 63 68 61 |;.    st|atic cha|
|00003820| 72 20 66 6d 74 5f 33 30 | 31 5b 5d 20 3d 20 22 28 |r fmt_30|1[] = "(|
|00003830| 35 78 2c 36 28 66 39 2e | 36 2c 32 78 29 29 22 3b |5x,6(f9.|6,2x))";|
|00003840| 0d 0d 20 20 20 20 2f 2a | 20 53 79 73 74 65 6d 20 |..    /*| System |
|00003850| 67 65 6e 65 72 61 74 65 | 64 20 6c 6f 63 61 6c 73 |generate|d locals|
|00003860| 20 2a 2f 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 | */.    |integer |
|00003870| 69 5f 5f 31 3b 0d 20 20 | 20 20 72 65 61 6c 20 72 |i__1;.  |  real r|
|00003880| 5f 5f 31 2c 20 72 5f 5f | 32 2c 20 72 5f 5f 33 2c |__1, r__|2, r__3,|
|00003890| 20 72 5f 5f 34 2c 20 72 | 5f 5f 35 3b 0d 20 20 20 | r__4, r|__5;.   |
|000038a0| 20 64 6f 75 62 6c 65 72 | 65 61 6c 20 64 5f 5f 31 | doubler|eal d__1|
|000038b0| 3b 0d 0d 20 20 20 20 2f | 2a 20 42 75 69 6c 74 69 |;..    /|* Builti|
|000038c0| 6e 20 66 75 6e 63 74 69 | 6f 6e 73 20 2a 2f 0d 20 |n functi|ons */. |
|000038d0| 20 20 20 69 6e 74 65 67 | 65 72 20 73 5f 77 73 6c |   integ|er s_wsl|
|000038e0| 65 28 63 69 6c 69 73 74 | 20 2a 29 2c 20 64 6f 5f |e(cilist| *), do_|
|000038f0| 6c 69 6f 28 69 6e 74 65 | 67 65 72 20 2a 2c 20 69 |lio(inte|ger *, i|
|00003900| 6e 74 65 67 65 72 20 2a | 2c 20 63 68 61 72 20 2a |nteger *|, char *|
|00003910| 2c 20 66 74 6e 6c 65 6e | 29 2c 20 0d 09 20 20 20 |, ftnlen|), ..   |
|00003920| 20 65 5f 77 73 6c 65 28 | 76 6f 69 64 29 2c 20 73 | e_wsle(|void), s|
|00003930| 5f 77 73 66 65 28 63 69 | 6c 69 73 74 20 2a 29 2c |_wsfe(ci|list *),|
|00003940| 20 65 5f 77 73 66 65 28 | 76 6f 69 64 29 3b 0d 20 | e_wsfe(|void);. |
|00003950| 20 20 20 64 6f 75 62 6c | 65 20 73 71 72 74 28 64 |   doubl|e sqrt(d|
|00003960| 6f 75 62 6c 65 72 65 61 | 6c 29 2c 20 70 6f 77 5f |oublerea|l), pow_|
|00003970| 64 64 28 64 6f 75 62 6c | 65 72 65 61 6c 20 2a 2c |dd(doubl|ereal *,|
|00003980| 20 64 6f 75 62 6c 65 72 | 65 61 6c 20 2a 29 3b 0d | doubler|eal *);.|
|00003990| 20 20 20 20 69 6e 74 65 | 67 65 72 20 64 6f 5f 66 |    inte|ger do_f|
|000039a0| 69 6f 28 69 6e 74 65 67 | 65 72 20 2a 2c 20 63 68 |io(integ|er *, ch|
|000039b0| 61 72 20 2a 2c 20 66 74 | 6e 6c 65 6e 29 3b 0d 0d |ar *, ft|nlen);..|
|000039c0| 20 20 20 20 2f 2a 20 4c | 6f 63 61 6c 20 76 61 72 |    /* L|ocal var|
|000039d0| 69 61 62 6c 65 73 20 2a | 2f 0d 20 20 20 20 69 6e |iables *|/.    in|
|000039e0| 74 65 67 65 72 20 69 3b | 0d 20 20 20 20 72 65 61 |teger i;|.    rea|
|000039f0| 6c 20 78 31 2c 20 78 32 | 2c 20 78 33 3b 0d 0d 20 |l x1, x2|, x3;.. |
|00003a00| 20 20 20 2f 2a 20 46 6f | 72 74 72 61 6e 20 49 2f |   /* Fo|rtran I/|
|00003a10| 4f 20 62 6c 6f 63 6b 73 | 20 2a 2f 0d 20 20 20 20 |O blocks| */.    |
|00003a20| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00003a30| 5f 5f 5f 36 31 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___61 = |{ 0, 6, |
|00003a40| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|00003a50| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|00003a60| 5f 5f 36 32 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__62 = {| 0, 6, 0|
|00003a70| 2c 20 66 6d 74 5f 33 30 | 35 2c 20 30 20 7d 3b 0d |, fmt_30|5, 0 };.|
|00003a80| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00003a90| 74 20 69 6f 5f 5f 5f 36 | 37 20 3d 20 7b 20 30 2c |t io___6|7 = { 0,|
|00003aa0| 20 36 2c 20 30 2c 20 66 | 6d 74 5f 33 30 31 2c 20 | 6, 0, f|mt_301, |
|00003ab0| 30 20 7d 3b 0d 0d 0d 20 | 20 20 20 73 5f 77 73 6c |0 };... |   s_wsl|
|00003ac0| 65 28 26 69 6f 5f 5f 5f | 36 31 29 3b 0d 20 20 20 |e(&io___|61);.   |
|00003ad0| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 39 2c 20 26 | do_lio(|&c__9, &|
|00003ae0| 63 5f 5f 31 2c 20 22 5c | 6e 47 65 6e 65 72 61 74 |c__1, "\|nGenerat|
|00003af0| 65 20 61 20 74 61 62 6c | 65 20 6f 66 20 66 6c 6f |e a tabl|e of flo|
|00003b00| 61 74 73 2c 20 73 71 75 | 61 72 65 20 26 20 63 75 |ats, squ|are & cu|
|00003b10| 62 65 20 72 6f 6f 74 73 | 2c 22 0d 09 20 20 20 20 |be roots|,"..    |
|00003b20| 22 20 61 6e 64 20 74 68 | 65 69 72 20 73 71 75 61 |" and th|eir squa|
|00003b30| 72 65 73 20 26 20 63 75 | 62 65 73 2e 5c 6e 22 2c |res & cu|bes.\n",|
|00003b40| 20 37 37 4c 29 3b 0d 20 | 20 20 20 65 5f 77 73 6c | 77L);. |   e_wsl|
|00003b50| 65 28 29 3b 0d 20 20 20 | 20 73 5f 77 73 66 65 28 |e();.   | s_wsfe(|
|00003b60| 26 69 6f 5f 5f 5f 36 32 | 29 3b 0d 20 20 20 20 65 |&io___62|);.    e|
|00003b70| 5f 77 73 66 65 28 29 3b | 0d 20 20 20 20 69 5f 5f |_wsfe();|.    i__|
|00003b80| 31 20 3d 20 2a 6d 3b 0d | 20 20 20 20 66 6f 72 20 |1 = *m;.|    for |
|00003b90| 28 69 20 3d 20 31 3b 20 | 69 20 3c 3d 20 69 5f 5f |(i = 1; |i <= i__|
|00003ba0| 31 3b 20 2b 2b 69 29 20 | 7b 0d 09 78 31 20 3d 20 |1; ++i) |{..x1 = |
|00003bb0| 69 20 2a 20 31 2e 66 3b | 0d 09 78 32 20 3d 20 73 |i * 1.f;|..x2 = s|
|00003bc0| 71 72 74 28 78 31 29 3b | 0d 09 64 5f 5f 31 20 3d |qrt(x1);|..d__1 =|
|00003bd0| 20 28 64 6f 75 62 6c 65 | 72 65 61 6c 29 20 78 31 | (double|real) x1|
|00003be0| 3b 0d 09 78 33 20 3d 20 | 70 6f 77 5f 64 64 28 26 |;..x3 = |pow_dd(&|
|00003bf0| 64 5f 5f 31 2c 20 26 63 | 5f 62 31 36 38 29 3b 0d |d__1, &c|_b168);.|
|00003c00| 09 73 5f 77 73 66 65 28 | 26 69 6f 5f 5f 5f 36 37 |.s_wsfe(|&io___67|
|00003c10| 29 3b 0d 09 64 6f 5f 66 | 69 6f 28 26 63 5f 5f 31 |);..do_f|io(&c__1|
|00003c20| 2c 20 28 63 68 61 72 20 | 2a 29 26 78 31 2c 20 28 |, (char |*)&x1, (|
|00003c30| 66 74 6e 6c 65 6e 29 73 | 69 7a 65 6f 66 28 72 65 |ftnlen)s|izeof(re|
|00003c40| 61 6c 29 29 3b 0d 09 64 | 6f 5f 66 69 6f 28 26 63 |al));..d|o_fio(&c|
|00003c50| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 78 32 |__1, (ch|ar *)&x2|
|00003c60| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00003c70| 28 72 65 61 6c 29 29 3b | 0d 09 64 6f 5f 66 69 6f |(real));|..do_fio|
|00003c80| 28 26 63 5f 5f 31 2c 20 | 28 63 68 61 72 20 2a 29 |(&c__1, |(char *)|
|00003c90| 26 78 33 2c 20 28 66 74 | 6e 6c 65 6e 29 73 69 7a |&x3, (ft|nlen)siz|
|00003ca0| 65 6f 66 28 72 65 61 6c | 29 29 3b 0d 2f 2a 20 43 |eof(real|));./* C|
|00003cb0| 6f 6d 70 75 74 69 6e 67 | 20 32 6e 64 20 70 6f 77 |omputing| 2nd pow|
|00003cc0| 65 72 20 2a 2f 0d 09 72 | 5f 5f 32 20 3d 20 78 32 |er */..r|__2 = x2|
|00003cd0| 3b 0d 09 72 5f 5f 31 20 | 3d 20 72 5f 5f 32 20 2a |;..r__1 |= r__2 *|
|00003ce0| 20 72 5f 5f 32 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 | r__2;..|do_fio(&|
|00003cf0| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 72 |c__1, (c|har *)&r|
|00003d00| 5f 5f 31 2c 20 28 66 74 | 6e 6c 65 6e 29 73 69 7a |__1, (ft|nlen)siz|
|00003d10| 65 6f 66 28 72 65 61 6c | 29 29 3b 0d 2f 2a 20 43 |eof(real|));./* C|
|00003d20| 6f 6d 70 75 74 69 6e 67 | 20 33 72 64 20 70 6f 77 |omputing| 3rd pow|
|00003d30| 65 72 20 2a 2f 0d 09 72 | 5f 5f 34 20 3d 20 78 33 |er */..r|__4 = x3|
|00003d40| 2c 20 72 5f 5f 35 20 3d | 20 72 5f 5f 34 3b 0d 09 |, r__5 =| r__4;..|
|00003d50| 72 5f 5f 33 20 3d 20 72 | 5f 5f 35 20 2a 20 28 72 |r__3 = r|__5 * (r|
|00003d60| 5f 5f 34 20 2a 20 72 5f | 5f 34 29 3b 0d 09 64 6f |__4 * r_|_4);..do|
|00003d70| 5f 66 69 6f 28 26 63 5f | 5f 31 2c 20 28 63 68 61 |_fio(&c_|_1, (cha|
|00003d80| 72 20 2a 29 26 72 5f 5f | 33 2c 20 28 66 74 6e 6c |r *)&r__|3, (ftnl|
|00003d90| 65 6e 29 73 69 7a 65 6f | 66 28 72 65 61 6c 29 29 |en)sizeo|f(real))|
|00003da0| 3b 0d 09 65 5f 77 73 66 | 65 28 29 3b 0d 20 20 20 |;..e_wsf|e();.   |
|00003db0| 20 7d 0d 20 20 20 20 72 | 65 74 75 72 6e 20 30 3b | }.    r|eturn 0;|
|00003dc0| 0d 7d 20 2f 2a 20 61 6c | 67 5f 74 65 73 74 5f 5f |.} /* al|g_test__|
|00003dd0| 20 2a 2f 0d 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | */../**|********|
|00003de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e20| 2f 0d 0d 2f 2a 20 09 53 | 75 62 72 6f 75 74 69 6e |/../* .S|ubroutin|
|00003e30| 65 20 74 6f 20 64 6f 20 | 74 68 65 20 74 72 61 6e |e to do |the tran|
|00003e40| 73 63 65 6e 64 65 6e 74 | 61 6c 20 66 75 6e 63 74 |scendent|al funct|
|00003e50| 69 6f 6e 20 74 65 73 74 | 73 20 2a 2f 0d 0d 2f 2a |ion test|s */../*|
|00003e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 2f 2a 20 53 75 |********|*/./* Su|
|00003eb0| 62 72 6f 75 74 69 6e 65 | 20 2a 2f 20 69 6e 74 20 |broutine| */ int |
|00003ec0| 74 72 6e 5f 74 65 73 74 | 5f 5f 28 76 6f 69 64 29 |trn_test|__(void)|
|00003ed0| 0d 7b 0d 20 20 20 20 2f | 2a 20 46 6f 72 6d 61 74 |.{.    /|* Format|
|00003ee0| 20 73 74 72 69 6e 67 73 | 20 2a 2f 0d 20 20 20 20 | strings| */.    |
|00003ef0| 73 74 61 74 69 63 20 63 | 68 61 72 20 66 6d 74 5f |static c|har fmt_|
|00003f00| 32 30 37 5b 5d 20 3d 20 | 22 28 39 78 2c 5c 30 30 |207[] = |"(9x,\00|
|00003f10| 32 78 5c 30 30 32 2c 39 | 78 2c 5c 30 30 32 73 69 |2x\002,9|x,\002si|
|00003f20| 6e 28 78 29 5c 30 30 32 | 2c 38 78 2c 5c 30 30 32 |n(x)\002|,8x,\002|
|00003f30| 63 6f 73 28 78 22 0d 09 | 20 20 20 20 22 29 5c 30 |cos(x"..|    ")\0|
|00003f40| 30 32 2c 34 78 2c 5c 30 | 30 32 73 69 6e 28 78 29 |02,4x,\0|02sin(x)|
|00003f50| 5e 32 20 2b 20 63 6f 73 | 28 78 29 5e 32 5c 30 30 |^2 + cos|(x)^2\00|
|00003f60| 32 29 22 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |2)";.   | static |
|00003f70| 63 68 61 72 20 66 6d 74 | 5f 32 30 30 5b 5d 20 3d |char fmt|_200[] =|
|00003f80| 20 22 28 35 78 2c 69 32 | 2c 5c 30 30 32 2a 70 69 | "(5x,i2|,\002*pi|
|00003f90| 2f 36 5c 30 30 32 33 78 | 2c 66 31 31 2e 38 2c 33 |/6\0023x|,f11.8,3|
|00003fa0| 78 2c 66 31 31 2e 38 2c | 33 78 2c 66 31 35 2e 31 |x,f11.8,|3x,f15.1|
|00003fb0| 30 29 22 0d 09 20 20 20 | 20 3b 0d 20 20 20 20 73 |0)"..   | ;.    s|
|00003fc0| 74 61 74 69 63 20 63 68 | 61 72 20 66 6d 74 5f 32 |tatic ch|ar fmt_2|
|00003fd0| 39 39 5b 5d 20 3d 20 22 | 28 61 31 29 22 3b 0d 20 |99[] = "|(a1)";. |
|00003fe0| 20 20 20 73 74 61 74 69 | 63 20 63 68 61 72 20 66 |   stati|c char f|
|00003ff0| 6d 74 5f 32 30 38 5b 5d | 20 3d 20 22 28 31 31 78 |mt_208[]| = "(11x|
|00004000| 2c 5c 30 30 32 78 5c 30 | 30 32 2c 31 36 78 2c 5c |,\002x\0|02,16x,\|
|00004010| 30 30 32 6c 6f 67 28 78 | 29 5c 30 30 32 2c 39 78 |002log(x|)\002,9x|
|00004020| 2c 5c 30 30 32 65 78 70 | 28 6c 6f 22 0d 09 20 20 |,\002exp|(lo"..  |
|00004030| 20 20 22 67 28 78 29 29 | 5c 30 30 32 29 22 3b 0d |  "g(x))|\002)";.|
|00004040| 20 20 20 20 73 74 61 74 | 69 63 20 63 68 61 72 20 |    stat|ic char |
|00004050| 66 6d 74 5f 32 30 31 5b | 5d 20 3d 20 22 28 35 78 |fmt_201[|] = "(5x|
|00004060| 2c 66 31 33 2e 31 30 2c | 35 78 2c 66 31 33 2e 31 |,f13.10,|5x,f13.1|
|00004070| 30 2c 35 78 2c 66 31 33 | 2e 31 30 29 22 3b 0d 0d |0,5x,f13|.10)";..|
|00004080| 20 20 20 20 2f 2a 20 53 | 79 73 74 65 6d 20 67 65 |    /* S|ystem ge|
|00004090| 6e 65 72 61 74 65 64 20 | 6c 6f 63 61 6c 73 20 2a |nerated |locals *|
|000040a0| 2f 0d 20 20 20 20 64 6f | 75 62 6c 65 72 65 61 6c |/.    do|ublereal|
|000040b0| 20 64 5f 5f 31 3b 0d 0d | 20 20 20 20 2f 2a 20 42 | d__1;..|    /* B|
|000040c0| 75 69 6c 74 69 6e 20 66 | 75 6e 63 74 69 6f 6e 73 |uiltin f|unctions|
|000040d0| 20 2a 2f 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 | */.    |integer |
|000040e0| 73 5f 77 73 6c 65 28 63 | 69 6c 69 73 74 20 2a 29 |s_wsle(c|ilist *)|
|000040f0| 2c 20 64 6f 5f 6c 69 6f | 28 69 6e 74 65 67 65 72 |, do_lio|(integer|
|00004100| 20 2a 2c 20 69 6e 74 65 | 67 65 72 20 2a 2c 20 63 | *, inte|ger *, c|
|00004110| 68 61 72 20 2a 2c 20 66 | 74 6e 6c 65 6e 29 2c 20 |har *, f|tnlen), |
|00004120| 0d 09 20 20 20 20 65 5f | 77 73 6c 65 28 76 6f 69 |..    e_|wsle(voi|
|00004130| 64 29 2c 20 73 5f 77 73 | 66 65 28 63 69 6c 69 73 |d), s_ws|fe(cilis|
|00004140| 74 20 2a 29 2c 20 65 5f | 77 73 66 65 28 76 6f 69 |t *), e_|wsfe(voi|
|00004150| 64 29 3b 0d 20 20 20 20 | 64 6f 75 62 6c 65 20 73 |d);.    |double s|
|00004160| 69 6e 28 64 6f 75 62 6c | 65 72 65 61 6c 29 2c 20 |in(doubl|ereal), |
|00004170| 63 6f 73 28 64 6f 75 62 | 6c 65 72 65 61 6c 29 3b |cos(doub|lereal);|
|00004180| 0d 20 20 20 20 69 6e 74 | 65 67 65 72 20 64 6f 5f |.    int|eger do_|
|00004190| 66 69 6f 28 69 6e 74 65 | 67 65 72 20 2a 2c 20 63 |fio(inte|ger *, c|
|000041a0| 68 61 72 20 2a 2c 20 66 | 74 6e 6c 65 6e 29 2c 20 |har *, f|tnlen), |
|000041b0| 73 5f 72 73 66 65 28 63 | 69 6c 69 73 74 20 2a 29 |s_rsfe(c|ilist *)|
|000041c0| 2c 20 65 5f 72 73 66 65 | 28 76 6f 69 64 29 3b 0d |, e_rsfe|(void);.|
|000041d0| 20 20 20 20 64 6f 75 62 | 6c 65 20 6c 6f 67 28 64 |    doub|le log(d|
|000041e0| 6f 75 62 6c 65 72 65 61 | 6c 29 2c 20 65 78 70 28 |oublerea|l), exp(|
|000041f0| 64 6f 75 62 6c 65 72 65 | 61 6c 29 3b 0d 0d 20 20 |doublere|al);..  |
|00004200| 20 20 2f 2a 20 4c 6f 63 | 61 6c 20 76 61 72 69 61 |  /* Loc|al varia|
|00004210| 62 6c 65 73 20 2a 2f 0d | 20 20 20 20 63 68 61 72 |bles */.|    char|
|00004220| 20 6a 75 6e 6b 5b 32 5d | 3b 0d 20 20 20 20 64 6f | junk[2]|;.    do|
|00004230| 75 62 6c 65 72 65 61 6c | 20 63 3b 0d 20 20 20 20 |ublereal| c;.    |
|00004240| 69 6e 74 65 67 65 72 20 | 69 3b 0d 20 20 20 20 64 |integer |i;.    d|
|00004250| 6f 75 62 6c 65 72 65 61 | 6c 20 73 2c 20 78 2c 20 |oublerea|l s, x, |
|00004260| 63 32 2c 20 73 32 2c 20 | 70 69 3b 0d 0d 20 20 20 |c2, s2, |pi;..   |
|00004270| 20 2f 2a 20 46 6f 72 74 | 72 61 6e 20 49 2f 4f 20 | /* Fort|ran I/O |
|00004280| 62 6c 6f 63 6b 73 20 2a | 2f 0d 20 20 20 20 73 74 |blocks *|/.    st|
|00004290| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|000042a0| 5f 36 39 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |_69 = { |0, 6, 0,|
|000042b0| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|000042c0| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|000042d0| 37 30 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |70 = { 0|, 6, 0, |
|000042e0| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|000042f0| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 37 |ic cilis|t io___7|
|00004300| 31 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 66 |1 = { 0,| 6, 0, f|
|00004310| 6d 74 5f 32 30 37 2c 20 | 30 20 7d 3b 0d 20 20 20 |mt_207, |0 };.   |
|00004320| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00004330| 6f 5f 5f 5f 37 38 20 3d | 20 7b 20 30 2c 20 36 2c |o___78 =| { 0, 6,|
|00004340| 20 30 2c 20 66 6d 74 5f | 32 30 30 2c 20 30 20 7d | 0, fmt_|200, 0 }|
|00004350| 3b 0d 20 20 20 20 73 74 | 61 74 69 63 20 63 69 6c |;.    st|atic cil|
|00004360| 69 73 74 20 69 6f 5f 5f | 5f 37 39 20 3d 20 7b 20 |ist io__|_79 = { |
|00004370| 30 2c 20 36 2c 20 30 2c | 20 30 2c 20 30 20 7d 3b |0, 6, 0,| 0, 0 };|
|00004380| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00004390| 73 74 20 69 6f 5f 5f 5f | 38 30 20 3d 20 7b 20 30 |st io___|80 = { 0|
|000043a0| 2c 20 35 2c 20 30 2c 20 | 66 6d 74 5f 32 39 39 2c |, 5, 0, |fmt_299,|
|000043b0| 20 30 20 7d 3b 0d 20 20 | 20 20 73 74 61 74 69 63 | 0 };.  |  static|
|000043c0| 20 63 69 6c 69 73 74 20 | 69 6f 5f 5f 5f 38 32 20 | cilist |io___82 |
|000043d0| 3d 20 7b 20 30 2c 20 36 | 2c 20 30 2c 20 30 2c 20 |= { 0, 6|, 0, 0, |
|000043e0| 30 20 7d 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |0 };.   | static |
|000043f0| 63 69 6c 69 73 74 20 69 | 6f 5f 5f 5f 38 33 20 3d |cilist i|o___83 =|
|00004400| 20 7b 20 30 2c 20 36 2c | 20 30 2c 20 66 6d 74 5f | { 0, 6,| 0, fmt_|
|00004410| 32 30 38 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |208, 0 }|;.    st|
|00004420| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|00004430| 5f 38 34 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |_84 = { |0, 6, 0,|
|00004440| 20 66 6d 74 5f 32 30 31 | 2c 20 30 20 7d 3b 0d 0d | fmt_201|, 0 };..|
|00004450| 0d 20 20 20 20 70 69 20 | 3d 20 33 2e 31 34 31 35 |.    pi |= 3.1415|
|00004460| 39 32 36 35 33 35 38 39 | 37 39 33 66 3b 0d 20 20 |92653589|793f;.  |
|00004470| 20 20 73 5f 77 73 6c 65 | 28 26 69 6f 5f 5f 5f 36 |  s_wsle|(&io___6|
|00004480| 39 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |9);.    |do_lio(&|
|00004490| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 5c 6e |c__9, &c|__1, "\n|
|000044a0| 50 61 72 74 20 31 3a 20 | 54 72 69 67 20 46 75 6e |Part 1: |Trig Fun|
|000044b0| 63 74 69 6f 6e 73 22 2c | 20 32 33 4c 29 3b 0d 20 |ctions",| 23L);. |
|000044c0| 20 20 20 65 5f 77 73 6c | 65 28 29 3b 0d 20 20 20 |   e_wsl|e();.   |
|000044d0| 20 73 5f 77 73 6c 65 28 | 26 69 6f 5f 5f 5f 37 30 | s_wsle(|&io___70|
|000044e0| 29 3b 0d 20 20 20 20 64 | 6f 5f 6c 69 6f 28 26 63 |);.    d|o_lio(&c|
|000044f0| 5f 5f 39 2c 20 26 63 5f | 5f 31 2c 20 22 5c 6e 47 |__9, &c_|_1, "\nG|
|00004500| 65 6e 65 72 61 74 65 20 | 61 20 74 61 62 6c 65 20 |enerate |a table |
|00004510| 6f 66 20 78 2c 20 73 69 | 6e 28 78 29 2c 20 63 6f |of x, si|n(x), co|
|00004520| 73 28 78 29 20 61 6e 64 | 20 74 68 65 20 73 75 22 |s(x) and| the su"|
|00004530| 0d 09 20 20 20 20 22 6d | 20 6f 66 20 74 68 65 69 |..    "m| of thei|
|00004540| 72 20 73 71 75 61 72 65 | 73 2e 5c 6e 22 2c 20 36 |r square|s.\n", 6|
|00004550| 39 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |9L);.   | e_wsle(|
|00004560| 29 3b 0d 20 20 20 20 73 | 5f 77 73 66 65 28 26 69 |);.    s|_wsfe(&i|
|00004570| 6f 5f 5f 5f 37 31 29 3b | 0d 20 20 20 20 65 5f 77 |o___71);|.    e_w|
|00004580| 73 66 65 28 29 3b 0d 20 | 20 20 20 66 6f 72 20 28 |sfe();. |   for (|
|00004590| 69 20 3d 20 31 3b 20 69 | 20 3c 3d 20 31 32 3b 20 |i = 1; i| <= 12; |
|000045a0| 2b 2b 69 29 20 7b 0d 09 | 78 20 3d 20 69 20 2a 20 |++i) {..|x = i * |
|000045b0| 70 69 20 2f 20 36 2e 66 | 3b 0d 09 73 20 3d 20 73 |pi / 6.f|;..s = s|
|000045c0| 69 6e 28 78 29 3b 0d 09 | 63 20 3d 20 63 6f 73 28 |in(x);..|c = cos(|
|000045d0| 78 29 3b 0d 2f 2a 20 43 | 6f 6d 70 75 74 69 6e 67 |x);./* C|omputing|
|000045e0| 20 32 6e 64 20 70 6f 77 | 65 72 20 2a 2f 0d 09 64 | 2nd pow|er */..d|
|000045f0| 5f 5f 31 20 3d 20 73 3b | 0d 09 73 32 20 3d 20 64 |__1 = s;|..s2 = d|
|00004600| 5f 5f 31 20 2a 20 64 5f | 5f 31 3b 0d 2f 2a 20 43 |__1 * d_|_1;./* C|
|00004610| 6f 6d 70 75 74 69 6e 67 | 20 32 6e 64 20 70 6f 77 |omputing| 2nd pow|
|00004620| 65 72 20 2a 2f 0d 09 64 | 5f 5f 31 20 3d 20 63 3b |er */..d|__1 = c;|
|00004630| 0d 09 63 32 20 3d 20 64 | 5f 5f 31 20 2a 20 64 5f |..c2 = d|__1 * d_|
|00004640| 5f 31 3b 0d 09 73 5f 77 | 73 66 65 28 26 69 6f 5f |_1;..s_w|sfe(&io_|
|00004650| 5f 5f 37 38 29 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 |__78);..|do_fio(&|
|00004660| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 69 |c__1, (c|har *)&i|
|00004670| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00004680| 28 69 6e 74 65 67 65 72 | 29 29 3b 0d 09 64 6f 5f |(integer|));..do_|
|00004690| 66 69 6f 28 26 63 5f 5f | 31 2c 20 28 63 68 61 72 |fio(&c__|1, (char|
|000046a0| 20 2a 29 26 73 2c 20 28 | 66 74 6e 6c 65 6e 29 73 | *)&s, (|ftnlen)s|
|000046b0| 69 7a 65 6f 66 28 64 6f | 75 62 6c 65 72 65 61 6c |izeof(do|ublereal|
|000046c0| 29 29 3b 0d 09 64 6f 5f | 66 69 6f 28 26 63 5f 5f |));..do_|fio(&c__|
|000046d0| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 63 2c 20 28 |1, (char| *)&c, (|
|000046e0| 66 74 6e 6c 65 6e 29 73 | 69 7a 65 6f 66 28 64 6f |ftnlen)s|izeof(do|
|000046f0| 75 62 6c 65 72 65 61 6c | 29 29 3b 0d 09 64 5f 5f |ublereal|));..d__|
|00004700| 31 20 3d 20 73 32 20 2b | 20 63 32 3b 0d 09 64 6f |1 = s2 +| c2;..do|
|00004710| 5f 66 69 6f 28 26 63 5f | 5f 31 2c 20 28 63 68 61 |_fio(&c_|_1, (cha|
|00004720| 72 20 2a 29 26 64 5f 5f | 31 2c 20 28 66 74 6e 6c |r *)&d__|1, (ftnl|
|00004730| 65 6e 29 73 69 7a 65 6f | 66 28 64 6f 75 62 6c 65 |en)sizeo|f(double|
|00004740| 72 65 61 6c 29 29 3b 0d | 09 65 5f 77 73 66 65 28 |real));.|.e_wsfe(|
|00004750| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 73 5f 77 |);.    }|.    s_w|
|00004760| 73 6c 65 28 26 69 6f 5f | 5f 5f 37 39 29 3b 0d 20 |sle(&io_|__79);. |
|00004770| 20 20 20 64 6f 5f 6c 69 | 6f 28 26 63 5f 5f 39 2c |   do_li|o(&c__9,|
|00004780| 20 26 63 5f 5f 31 2c 20 | 22 5c 6e 50 61 72 74 20 | &c__1, |"\nPart |
|00004790| 32 3a 20 20 45 78 70 6f | 6e 65 6e 74 69 61 6c 20 |2:  Expo|nential |
|000047a0| 66 75 6e 63 74 69 6f 6e | 73 3b 20 68 69 74 20 72 |function|s; hit r|
|000047b0| 65 74 75 72 6e 20 74 6f | 20 63 6f 22 0d 09 20 20 |eturn to| co"..  |
|000047c0| 20 20 22 6e 74 69 6e 75 | 65 2e 2e 2e 22 2c 20 35 |  "ntinu|e...", 5|
|000047d0| 38 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |8L);.   | e_wsle(|
|000047e0| 29 3b 0d 20 20 20 20 73 | 5f 72 73 66 65 28 26 69 |);.    s|_rsfe(&i|
|000047f0| 6f 5f 5f 5f 38 30 29 3b | 0d 20 20 20 20 64 6f 5f |o___80);|.    do_|
|00004800| 66 69 6f 28 26 63 5f 5f | 31 2c 20 6a 75 6e 6b 2c |fio(&c__|1, junk,|
|00004810| 20 32 4c 29 3b 0d 20 20 | 20 20 65 5f 72 73 66 65 | 2L);.  |  e_rsfe|
|00004820| 28 29 3b 0d 20 20 20 20 | 73 5f 77 73 6c 65 28 26 |();.    |s_wsle(&|
|00004830| 69 6f 5f 5f 5f 38 32 29 | 3b 0d 20 20 20 20 64 6f |io___82)|;.    do|
|00004840| 5f 6c 69 6f 28 26 63 5f | 5f 39 2c 20 26 63 5f 5f |_lio(&c_|_9, &c__|
|00004850| 31 2c 20 22 47 65 6e 65 | 72 61 74 65 20 61 20 74 |1, "Gene|rate a t|
|00004860| 61 62 6c 65 20 6f 66 20 | 78 2c 20 6c 6f 67 28 78 |able of |x, log(x|
|00004870| 29 2c 20 61 6e 64 20 65 | 78 70 28 6c 6f 67 28 78 |), and e|xp(log(x|
|00004880| 29 29 5c 6e 22 2c 20 0d | 09 20 20 20 20 34 37 4c |))\n", .|.    47L|
|00004890| 29 3b 0d 20 20 20 20 65 | 5f 77 73 6c 65 28 29 3b |);.    e|_wsle();|
|000048a0| 0d 20 20 20 20 73 5f 77 | 73 66 65 28 26 69 6f 5f |.    s_w|sfe(&io_|
|000048b0| 5f 5f 38 33 29 3b 0d 20 | 20 20 20 65 5f 77 73 66 |__83);. |   e_wsf|
|000048c0| 65 28 29 3b 0d 20 20 20 | 20 66 6f 72 20 28 69 20 |e();.   | for (i |
|000048d0| 3d 20 31 3b 20 69 20 3c | 3d 20 31 30 3b 20 2b 2b |= 1; i <|= 10; ++|
|000048e0| 69 29 20 7b 0d 09 78 20 | 3d 20 28 64 6f 75 62 6c |i) {..x |= (doubl|
|000048f0| 65 72 65 61 6c 29 20 69 | 3b 0d 09 73 20 3d 20 6c |ereal) i|;..s = l|
|00004900| 6f 67 28 78 29 3b 0d 09 | 63 20 3d 20 65 78 70 28 |og(x);..|c = exp(|
|00004910| 73 29 3b 0d 09 73 5f 77 | 73 66 65 28 26 69 6f 5f |s);..s_w|sfe(&io_|
|00004920| 5f 5f 38 34 29 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 |__84);..|do_fio(&|
|00004930| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 78 |c__1, (c|har *)&x|
|00004940| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00004950| 28 64 6f 75 62 6c 65 72 | 65 61 6c 29 29 3b 0d 09 |(doubler|eal));..|
|00004960| 64 6f 5f 66 69 6f 28 26 | 63 5f 5f 31 2c 20 28 63 |do_fio(&|c__1, (c|
|00004970| 68 61 72 20 2a 29 26 73 | 2c 20 28 66 74 6e 6c 65 |har *)&s|, (ftnle|
|00004980| 6e 29 73 69 7a 65 6f 66 | 28 64 6f 75 62 6c 65 72 |n)sizeof|(doubler|
|00004990| 65 61 6c 29 29 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 |eal));..|do_fio(&|
|000049a0| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 63 |c__1, (c|har *)&c|
|000049b0| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|000049c0| 28 64 6f 75 62 6c 65 72 | 65 61 6c 29 29 3b 0d 09 |(doubler|eal));..|
|000049d0| 65 5f 77 73 66 65 28 29 | 3b 0d 20 20 20 20 7d 0d |e_wsfe()|;.    }.|
|000049e0| 20 20 20 20 72 65 74 75 | 72 6e 20 30 3b 0d 7d 20 |    retu|rn 0;.} |
|000049f0| 2f 2a 20 74 72 6e 5f 74 | 65 73 74 5f 5f 20 2a 2f |/* trn_t|est__ */|
|00004a00| 0d 0d 2f 2a 20 4d 61 69 | 6e 20 70 72 6f 67 72 61 |../* Mai|n progra|
|00004a10| 6d 20 61 6c 69 61 73 20 | 2a 2f 20 69 6e 74 20 74 |m alias |*/ int t|
|00004a20| 65 73 74 5f 66 32 63 5f | 5f 20 28 29 20 7b 20 4d |est_f2c_|_ () { M|
|00004a30| 41 49 4e 5f 5f 20 28 29 | 3b 20 72 65 74 75 72 6e |AIN__ ()|; return|
|00004a40| 20 30 3b 20 7d 0d 00 00 | 00 00 00 00 00 00 00 00 | 0; }...|........|
|00004a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a80| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00004a90| 3a 20 31 39 20 32 20 63 | 6c 5f 5f 31 0a 37 3a 20 |: 19 2 c|l__1.7: |
|00004aa0| 31 39 20 34 0a 37 3a 20 | 30 20 30 0a 39 3a 20 32 |19 4.7: |0 0.9: 2|
|00004ab0| 11 74 65 73 74 2e 63 20 | 28 43 20 4f 75 74 70 75 |.test.c |(C Outpu|
|00004ac0| 74 29 02 00 00 00 50 61 | 72 74 53 49 54 21 00 00 |t)....Pa|rtSIT!..|
|00004ad0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00004ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004af0| 00 00 ab f2 17 41 00 00 | 00 00 00 00 01 9a 00 0a |.....A..|........|
|00004b00| 37 3a 20 30 20 30 0a 36 | 3a 20 34 20 30 0a 37 3a |7: 0 0.6|: 4 0.7:|
|00004b10| 20 31 39 20 34 0a 37 3a | 20 30 20 30 0a 39 3a 20 | 19 4.7:| 0 0.9: |
|00004b20| 33 0a 31 31 3a 20 36 20 | 30 20 34 0a 31 32 3a 20 |3.11: 6 |0 4.12: |
|00004b30| 32 0a 31 32 3a 20 33 0a | 36 3a 20 31 33 20 32 31 |2.12: 3.|6: 13 21|
|00004b40| 35 39 35 30 0a 36 3a 20 | 34 20 34 33 0a 37 3a 20 |5950.6: |4 43.7: |
|00004b50| 31 39 20 34 0a 37 3a 20 | 30 20 30 0a 39 3a 20 34 |19 4.7: |0 0.9: 4|
|00004b60| 0a 37 3a 20 30 20 30 0a | 37 3a 20 31 39 20 34 0a |.7: 0 0.|7: 19 4.|
|00004b70| 37 3a 20 30 20 30 0a 39 | 3a 20 32 32 0a 31 31 3a |7: 0 0.9|: 22.11:|
|00004b80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00004b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ba0| 00 00 00 00 00 00 00 03 | 00 04 00 3d 00 0a 01 d7 |........|...=....|
|00004bb0| 02 80 00 3d 00 0a 01 d7 | 02 80 ab 95 f4 47 00 00 |...=....|.....G..|
|00004bc0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 04 |........|........|
|00004bd0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00004be0| 00 00 00 46 00 63 4c 88 | 0f cc 00 00 00 1c 00 46 |...F.cL.|.......F|
|00004bf0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00004c00| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00004c10| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00004c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+